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% * 
* MM 6329 ROM CODING * 
* DEVICE DECODER * 
’ RPU/MAG TAPE INTERFACE : 
BEAR HE HR HE I SE A ie HEE Be a Ie ak ak 2 aE AS a ae 3 ae ee a a ae ake ak ae aK a a ok ak ae ak ae ak a aye ae aie a ak ae 
* cd 
* OUTPUT NAME CODE ROM ADDRESS * 
*  Q7 GRPSEL ALL ALL VALID * 
* Q6 PTPSEL 13 64 * 
* 395 PTRSEL 12 65 * 
*  Q4 LPT1SL 5? 20 * 
* Q3 TTO1SL 51 26 * 
* 92 TT11SL 50 27 * 
* Qi LPTSEL 17 60 % 
* Qe MTSEL 22 55 * 
% 
* 
* HEX DEV ROM 
* NAME DATA CODE CODING 
2012 ORG $10 
2210 6F LPTSEL FCB $6F 57 @1101111 
0016 ORG $16 
3216 77 TT@1SL FCB $77 51 01110111 
2217 7B TT11SL FCB $78 50 @1111011 
22D ORG = $2 
2@2D 25 MTSEL FCB $75 22 01111110 — 
2034 ORG 334 
2034 3F PTPSEL“FCB 3? 13 00111111 — 
3035 SF PTRSEL FCB SF 12 91011111 
END 
NUMBER OF SOURCE LINES = 33 
TOTAL ERRORS = @ TOTAL WARNINGS = 2 
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x xe 
a * MM 6308 ROM CODING * 

* DEVICE ENCODER * 
si RPU/MAG TAPE INTERFACE a 
* * 
BR FE OK BC OE OK DC NC IE HC HEC OH KC BEC CO OC Oe KC aE OE OC OK ai BC a af a af a a a oc ke ak aK akc ak ai ait aie 
x 
* HEX DEV ROM 
*NAME DATA CODE DATA 

@O01 ORG $01 

0831 ED ‘MTS EL FCB SED 22 XX181191 

OBG2 E8 LPTSEL FCB $E8 17 XX1%1000 

8234 ORG $24 

BO04 D? TTil FCB SDY 5@ XX010111 

O2C8 ORG $@8 

0808 D6 TT@1 FCB $D6 51 XX2190112 

3012 ORG ie 

@218 De LP2 FCB De 57 XXG1 L082 

GB20 ORG $29 

0B20 F5 PIR FCB $F5 12 XX1101981 

O42 ORG $49 

8849 F4 egltls FCB SF4 13 XX119120 

END 
NUMBER OF SOURCE LINES = 25 


a) TOTAL ERRORS = ® TOTAL WARNINGS = a 
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L.W~18 LeerZ27¢ L.6-14 
R.4-6 Reon 

R.4-7 Hieore 

L.W-16 L.8-25 L.6-16 
R.4-9 Ricans 

L.W-15 L.8-24 L.6-17 
R.4-1¢ R.3-15 
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*MAG TAPE/RPU INT (MTRA.WR) *9/22/81 PAGE 4 
DATIC/ F.2=13 F.1-8 

DATOA *NA-58 F.1-13 

DATOA/ =F ,2-2 F,1-12 

DATOB *NA-56 G.1-1 

DATOB/ = =F.2-3 G.1-2 

DATOC *NA-48 G.1-3 


DATOC/ Feen4 G.1-4 

DAV E.X-3 F.Y-9 G.8-9 J 24-13 

DCHA/ *NA-62 H.1i-3 1.3-108 I.4-4 F.X-10 
DCHAB E.9-1 G.8-3 K.4-12 M.4-3 M.6-1 
DCHAB/ 1.5-8 K.4-13 

DCHI *NB-37 be Goat) 1.2-9 

DCHI/ Bb. 2-8 1.4-5 


DCHM2/ = *NB-17 Ms2<5 


DCHO *NB-33 TTEs5 Levert 
DCHO/ E.X-11 Peers K.i-2 
DCHP1 E.8-4 E.9-5 E.W-3 
DCHPIN Lgt—5 Bw le 1.4~-2 E.W-1 HeG=2 


DCHPIN/ *NA-94 G.1-135 Js Ld 
DCHPOUT/ *NA-93 J2i=2 L.1-6 
DCHR/ *NB-35 Mate le M.1-6 


DCHSYN F.8-5 F.8-i2 

DIO@ Be9.1 G.5-1 G.2-18 @.359 0.4-14 P.4-14 P 5-5 
Q.3-5 Q.4-14 R.4-14 R.3-5 

DIO1 B.9-2 G.3-2 G.2-8 0.3~4 0.4-135 P.4-13 P 5-4 
Q.5-4 Q.4-135 Reis R.3-4 

DIO2 F.9-3 G.2-4 G.3-3 K.4-5 K.4-11 K.1-9 

DIRECT Me2-1 0.X-6 

DMA/ L.8-35 M.8-6 

DRQ E.Y¥-5 F.8-3 
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*MAG TAPEB/RPU INT (MTRA.WR) 


DS@/ 
DS1/ 
DS2/ 
DS3/ 
DS4/ 
DS5/ 
DTR/ 


*NA-72 
* NA-68 
*NA-66 
*NA-46 
*NA-62 
*NA-64 
L.Y-39 


a Ng 
H.2-5 
H.2-4 
H.2-3 
Bark 
H.2=-1 
L.W-5 


*9/22/81 


PAGE 5 


= 


Al CORPORATION / 


a 


TOTAL NUMBER OF WIRE WRAPS: 1186 
TOTAL PINS USED: 651 


eS ae ‘ AlA ———wy 


*MAG TAPE/RPU INT (MTRB.WR) 


EBD@ 
EBD/ 
EBD1 
EBD1/ 
EBD12 
EBD10/ 
EBD11 
EBD11/ 
EBD12 
FBD12/ 
EBD13 
EBD13/ 
EBD14 
EBD14/ 
FBD15 
EBD15/ 
EBD2 


d.X-27 
E.5-13 
£E.6-13 
E.7-6 
E.8-11 
E.8-6 
E.8-8 
E.8-1 


C.8-4 
C.k~4 


E.X-8 

F.5-12 
*CA-18 
*CA-17 
*CA-22 
*CA-19 
*CA—42 
*CA-39 
*CA-42 
*CA-41 
*CA—44 
*CA-43 
*CA-46 
*CA-45 
*CA-48 
*CA-47 
*CA-50 
*CA-49 


*CA-Z22 


Lyireo 
F.6-4 
r.7-4 
E.7-18 
F.8-1 
G.8-2 
E.8-12 
E.9-6 


C e 8-12 
E.X-4 


F.X-11 
J 4-2 
CL t=8 
C.Y-9 
Cs Y=2 
C.Y-12 
D;..¥=6 
DetqLt 
D.¥=35 
DP.Y-12 
B.Y~-4 
D.¥-13 
D.Y-3 
D.Y-14 
Be Y—2 
.Y-15 
De Y=1 
DY Y¥-16 
C.Y-6 


L.W-14 


C.9~-12 


*9/22/81 PAGE ZL 
C.9-4 C.W-4 C.W-12 C.X=1e2 


L.6-29 Q.Y-12 
D.8-14 
D28=1.5 
D.8-18 
D.8-9 
C .W-12 
C.W-11 
C.W-14 
C.W-13 
C.x=2 
C.X-3 
C.X-6 
C.X-5 
C.X-12 
C.X¥-11 
C .X-14 
C.X-13 


D.8-6 ATA 


COPYRTGHT RY 


CORPORATION 


*MAG TAPE/RPU INT (MTRB.WR) 


EBD2/ 
EBD3 
EBD3/ 
EBD4 
FBD4/ 
EBD5 
EBDS/ 
FBD6 
EBD6/ 
EBD? 
EBD7/ 
EBD8 
FBD8/ 
EBD9 
EBD9/ 
EBUSY 
EBUSY / 
ECMD 
ECMD/ 
EDO 
ED1 
ED12 
ED11 
ED12 
ED13 
ED14 
ED15 
ED2 
ED3 


*CA-21 
*CA—24 
*CA-23 
*CA-28 
*CA-27 
*CA~30 
*CA-29 
*CA-32 
*CA-31 
*CA-34 
¥*CA-335 
*CA-36 
*CA-35 
*CA-38 
*CA-37 
*CA-16 
*CA-15 
*EA=12 
*CA-11 
C.8-1 

C.8-7 

C.6-6 

C.6~9 

C.6-12 
G.6-15 
C.6-16 
£4619 
C.8-9 

C.8-15 


C.Y-11 
Ceo o 
Cah eis 
C.Y-4 
C.Y-13 
C.Y-3 
C.Y-14 
Gi ie 
ae ad Bo) 
C..¥=1 
€&..Y-16 
D.Y-8 
D.Y-9 
Te a 
D.Y-10 
B.1-5 
Betale 
B.Y=7 
Bst=19 
Ds0=<2 
D.6=-5 
C.W-9 
C.W-15 
C.X-1 
Ce? 
C.X-9 
€.A-15 
D.6-6 
D.6-9 


C.8-11 
C.8-14 
C.8-15 
C.9-2 
C.9-3 
C.9-6 
Cs9=5 
C.9-12 
C.9-11 
C.9-14 
C.9-13 
D.W~14 
D.W-15 
D.W-12 
D.W-9 
F.Y-14 
F,Y-i35 
F.Y-6 
F.Y~5 


*9/22/81 PAGE rs 
D.8-7 
D..8=2 
Dvoat 
D.9-14 
D.9-15 
D.9-16 
D.9-9 
D.9-6 
D,o>7 
DA Ore 
D.9-1 
C.W-2 
C.W-3 
C.W-6 
C.W-5 
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*MAG TAPE/RPU INT (MTRB.WR) *9/22/81 PAGE ) 


ED4 C.9-1 De6=12 

ED5 C.9-7 )..6=15 

ED6 C.9-9 D<.6-16 

ED? C.9-15 D.6-19 

ED8 C.6=-2 C.W-1 

EDS €.6=5 C.Ww-? 

EDAV *CA-14 Bere6 F.Y-12 


EDAV/ *CA-13 B14 Retslt 


EDONE *CA-7 B.Y-1 E.Y-1 
EDONE/ ¥*CA-8 B.Y-16 E.Y-2 
EDRQ *CA-6 B.Y-2 E.Y-6 
EDRQ/ = *CA-5 B.Y~15 E.Y-? 
EFIN *CA~10 B.Y-8 F.Y-2 
EFIN/  *CA-9 B.Y-9 F.Y-3 
ER DAV *CA—4 B.Y-3 E.Y-12 
ERDAV/ *CA-3 B.Y-14 E.Y-9 
EXS/ *CB-16 N.Y-3 M.Y-6 
F.2-14 F.2-14 =H 1-1 1.3-4 


F.2-15 Fe2=15 Eeis5 


Peer F.2=6 Geer i 
bien? F.e-7 G.2-5 
F.2-9 F.2-9 G.2-13 


F.3-18 F.3-10 Peete 
F.3-13 F.3-13 Q.Y-3 


PeoriS E.5-4 P.S=15 
F.6-13 E.6-4 F.6-13 
F .X-6 E.7-9 F.X-6 
f.A-8 E.8-2 F.X-8 
FIN Mer F525 
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*MAG TAPE/RPU INT (MTRB.WR) 


FIRQ/ 
FLG/ 
FUP/ 
FwD 
FWD/ 
G.2-12 
G.2-2 
G.2-6 
G.5-12 
G.7-5 
G.9-11 
G.9-3 
G.9-8 
GRPSEL/ 
H.1-12 
H.1-14 
H.1-16 
H.6-12 
H5.12 
HALT/ 
HSP 
HSP/ 
I.1-12 
I.1-12 
I.1-14 
1.1-16 
1.211 
I.3-11 
1.3-3 


L.wW-? 
*CB-8 
*CB-12 
L.Y-3 
roB@2e 
G.2=-12 
Cie te 
G.2-6 
G.5=12 
G.7-5 
@.9-11 
F.W-1 
F.W-12 
H.2-14 
Ret~Le 
H.1-14 
H.1-16 
G.6-5 
Geo-5 
L.8-40 
L.Y-4 
*CB-24 
st—-10 
be i-Le 
T.1-14 
Iek=16 
2-11 
EVORT1 
T.3-5 


L.6-4 
M.Y-8 
M.Y-11 
ee haan Be 
P.Y-10 
Pag On 
G.2-3 
G.2-9 
H.6-5 
G.8-13 
G.9-18 
F.W-13 
G.9-8 
It:d=12 
Helle 
H.1-13 
Hat=15 
Hi.6-12 
H.5-12 
M..8=-5 
P.Y-9 
Pa tS 
Liir9 
badoia 
£.1-15 
LeielS 
N...B= 15 
1.571 


1.4-9 


*9/22/81 PAGE 4 
M.8-4 
N.Y-4 
NSY=5 


G.9-3 


Hei-11 
1.3-9 
Laoro 


[eels 
I.2-18 
Tae 
LP aa 
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*MAG TAPE/RPU INT (MTRB.WR) *9/22/81 


aes et 1.4-11 1.4-12 


1.4-3 T.4-3 M.4=2 

1.4-6 1.4-6 J.4-12 

I.4-8 I.4-8 0.1-7 Py Ls Q.1=<7 R.1-7 

ID@ D.X-3 C5218 I.6=16 R.3-18 Re=5 

ID1 D.X-5 €.5=16 1.6-16 Rwo=9 R.1-14 
ID18 Ds9-11 Dwo=14 J.6-14 ar oa d Pei=e 

TDil D.9-13 B.d=12 Js6-12 P.3-6 Peto 
ID12 D.8-3 D.5-9 J.6-9 O65 0.5-12 
ID13 B.8-5 Deore J.6-7 O.1-14 0.3-9 

ID14 B.8=31 D555 J «6=5 Ost=2 0.3-7 

ID15 D.8-13 Des=5 J.6-3 0.414 0.5-6 

TD2 D.X-11 C.5-14 T.6-14 Rao=e Hetaz 

ID3 D.X-13 G.S=12 LvGsiL2 R.35-6 Het=1T4 
ID4 D.W-3 C.5-9 1.6-9 0515 Q.35-18 
IDS D.W-5 C2057 E26=7 Q.1-14 Q.35-9 

ID6 D.W-11 C55 1..6-5 Qut2 Q.3-7 

ED? D115 G35=3 Lg6=35 Qsi=t1 Q.3-6 

ID8 D.9-3 DeS=18 J.6-18 P.35-108 te as, 

Ing BO -5 D.5-16 J.6-16 P.3-9 P.1-14 
INTA *NA-40 js Sea's lgert2 

INTP1 E.W-6 G29-15 

INTPIN B.W-~4 G.1-18 Reere L.t=1 

INTPIN/ *NA-96 ¢.1-4 Cae Fa bab 

INTPOUT/ *NA-95 J.1-1 Leit=5 


INTR/ *NB-29 M.1-12 M.1-4 
IOPULSE *NA-74 E.7-13 H.1-5 


IORST *NA-70 i ee 8 1254 


IORST/ E.X-15 E.8-13 F.8-13 F.7-13 G.8-1 o—5 La2s5 


AIA. 


G 
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*MAG TAPE/RPU INT (MTRB.WR) 


IORST/ 


IRQ/ 
J.5-11 
J .3-3 
J.3-6 
J .5-8 
J.4-11 
J.4-8 
Ae Goat 
JeL=L6 
| GP Vis Oo 
K.1-3 
K.1-6 
Ke i=8 
K.2-11 
K.2=5 
K.2-6 
Kee-8 
K.4-18 
K.4=2 
K .4-4 
K.4-6 
K.W-15 
K.X-1 
K.A=5 
E.k=-15 
L.Y-34 
L.¥=9 


J.572 
N 25-13 


Let=21 
J.5~11 
J.3-3 
J .3-6 
J.5-8 
J.4-11 
1.4-12 
ee Y—1 
wgit 16 
[ors a 
B13 
K.1-6 
R.1=8 
K2-1 
K.2-3 
K.2-6 
K.2-8 
| ae 
K.4-2 
K 4-4 
K.1-5 
K .W-15 
K .X-1 
KEX=5 
K-.k-15 
L.Y-34 
L.Y-9 


J.35-9 


L28=3 
J.5-1@ 
J «3-4 
Rol 
N.3-1 
J.2-4 
J.4-8 
J.X-6 
JX-7 
K.1-18 
Ro2eis 
Kaeo 
K.2-12 
024-12 
K.2-4 
M.3-2 
0.5-11 
K.4-12 
N.5-5 
N.5-4 
K.4-6 
J.X-3 
K .X-4 
K.X-6 
K.X-1@ 
4..8-7 


Gay =1 


*9Q /22/81 


M.s3=135 M.4-1 Motte 


M.8-3 


K.3-13 


Mao-k 


K.2-198 


Parle Q.4-12 R.4-12 


Peoria O..d=21 R.o-il 


Kean? 
K.X-11 


Pa daa 
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*MAG TAPE/RPU INT (MTRB.WR) *9/22/81 PAGE ? 
LPS/ *CB-10 N.Y-2 M.Y-4 
LPTSEL/ H.2-11 H..2-7 


M.7-3 M.i-1 M.7=3 
M.7-5 M.7-5 M.7-15 M.7=-14 M.7-11 

M.8-11 M.8-11 M.4-4 N.3-2 N.3-4 N.3-10 
M.8-12 G.3-6 M.8-12 

MAG G.6-7 I.6~2 

MA1 G.6-6 1.6-4 

MA1@ G.5-2 J.6-6 

MA11 G.5~3 J.6-8 

MA12 H.5-7 J.6-11 

MA13 H.5-6 J.6-13 

MA14 H.5-2 J.6~-15 

MA15 H.5-3 J.6-17 

MA2 G.6-2 1.6-6 

MAS G.6-3 1.6-8 

MA4 H.6-7 I.6-11 

MA5 H.6-6 1.6-13 

MA6 H.6-2 1.6-15 

MA? H.6-3 1.6-17 

MA8 ¢.5-7 J.6~2 

MAQ G.5-6 J.674 

MADEN/ J.3-13 M.6-6 Q.Y-11 

MBUSY L.1-10 J.3-12 K.3-2 K.3-9 L.Y-18 L.Y-16 
MCLR/ G.3-12 J.3-1 N.7=-18 


MDATOA/ G.3-13 N.7-4 
MDCHACT L.Y-17 M.4-9 
MDCHACT/ M.4-12 N.4-9 
MDCHREQ I.4-1 M.6-4 Mies N.3-9 
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*MAG TAPE/RPU INT (MTRB.WR) 


MDCHREQ/ 
f) MDCHSEL 
MDCHS EL/ 
MDCHSYN 
MDONE 
MINTDIS/ 
MINTREQ 
MINTREQ/ 
MMCLR 
MRDY/ 
MSKO 
MSKO/ 
MSTART/ 
MTSEL 
MTSEL/ 
N.5-14 
NMI/ 
OD2 
oD1 
oD12 
OD11 
oD12 
OD13 
oD14 
oD15 
oD2 
n OD3 

oD4 

oDs 


Y 


E.W-2 
Mogcec 
J .4-9 
N.3=5 
Reece 1 
K.2-5 
he S—5 
E.W-5 
L.Y~-14 
L.8-36 
F.7-11 
*NA—38 
G.5-7 
K .4-8 
G.3-4 
F.5-11 
J .X-2E 
¢.6-18 
C.6-17 
D.6-14 
D.6-13 
D.6-8 
D.6-7 
D.6-4 
D.6-3 
C.6-14 
Ci6-13 
C.6-8 
c.6=7 


L.1-4 
M.4-5 
Kealbel 
N.5-12 
K.3~-11 
M.3-8 
M.1-3 
M.3-6 
re Gat OS, 
M815 
G.1-8 
G.1-9 
4 Bre | 
L.1-9 
H.2-6 
N.5714 
L.&-2 
E.6-9 
E.6-12 
E.5-1 
E.5-15 
F.7=t2 
F.5-12 
Fond 
Le aa 
E.6-1 
E.6-15 
¥F 6-9 
¥F.6-18 


M.4-11 
M.6—5 
M.4-6 


Keo 5 


Now] 
Lsise 
N.7-9 


M.5-11 


K.3-18 
Eel-1e2 
Ext=13 


M82 
G. 6-9 
G.6-18 
G.S7k 
ere Co) 
F.5-9 
H.57-10 
Reord 
H.5-45 
G.6-1 
Goe=E5 
H.6-9 
H.6-18 


*9/22/81 PAGE 8 


N.3-8 


Lwarl?é 


ae da ek 


K.4-9 


R.4-15 bre Bog) 


R.4-1 Rel=15 
M.3-12 P.4-2 Pettd 
P.4-3 agree ed 
EH. S=9 ORG 0.4-15 


0.1-13 0.4-1 
0.1-3 0.4-2 
0.1-198 0.4-3 


R.4~2 R.1-3 
R.4-3 R.1-190 
Q.1-6 Q.4-15 


Q.1-13 Q.4-1 
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*MAG TAPE/RPU INT (MTRB.WR) 


OD6 
OD? 
OD8 
ope 
PULSE 
Q.Y-10 
RAM/ 
RAME/ 
RBUSY 
RCLR/ 
RDAV 
RDCHA/ 


RDCHREQ 
RDCHSEL 
RDGSEL/ 
RDIA/ 
RDIB/ 
RDIC/ 
RDOA/ 
RDOB/ 
RDOC/ 
RDONE 
RDS/ 
RDY/ 
RESET/ 
REV 
REV/ 


C.6-4 
C.6-3 
D.6-18 
D.6-17 
E.?7-1 
F.3-9 
J.4-1 
J .4-3 
E.8-108 
F.9-12 
E.Y-11 


E.8~9 
J 671 


F.X-5 
E.9-2 
Ne 9o-15 
D.X-12 
E.X-9 
Cala | 
E.7-4 
F.9-14 
B.S-11 
F.W=5 
*CB-38 
*CB-4 
J .X~-4 
LVY-2 
* CB-28 


RINTDIS/ F.7-8 


E.o=1 
F.6=15 
E.5-9 
E.5-18 
> i 
Q.Y-128 
N.5~12 
L.o-i8 
Eavsi5 
G.9-4 
G.7=3 


E.8-35 
J.6-19 


¥F.8-9 
F.X-3 
N.4-4 
DeW-12 
F.9-1@ 
GC. oho 
F.9=-13 
G.5-11 
BsO=1it 
G.7-11 
L.W-3d 
gi Ger 
L.W-9 
PA pds 
PelSle 
G. 9-9 


B.6=1 
Be S15 
G.5=9 
G.5-108 


F.5-4 


Lee75 
G.8-5 


D,.9s12 


*9/22/81 


Q.1-3 
Q.1-18 
P.4-15 


P.4=1 


Ds8-12 


Digotee 


Hy 6=11 


F.9s15 
J.2=1 


M.t-2 


G.7-9 


I.4-13 


Mel=13 


F.9-9 


F.9-11 


Hyonll 
F..6-i1 


PAGE 


J.4-12 


f 


*MAG TAPE/RPU INT (MTRB.WR) 


RINTREQ 

@ RNOVA1/ 
RNOVA2/ 
RNZ 
RNZ/ 
ROM1/ 
ROM2/ 
ROUT/ 
RPUCLR/ 
RQENB 
RQENB/ 
RS 232 IN 
RS2320UT 
RSEL 
RSEL/ 
RST 


RSTRT/ 
RWD 
RWD/ 

RX 
SDCHRQ/ 
SELB/ 
SELD/ 
SL1 
SLi 
SL2 


% SL2/ 


SLD/ 


F .W-9 
N.4-11 
N.4-10 
L.W-2 
*CB-36 
L.4-18 
L.6-18 
626-11 
G.7-13 
Fi. W=11 
*NB-41 
K.X-8 
K.X-135 
E.X-2 
E.X-1 


H.5-14 
E.5-14 


¥F.9-7 


Lat —7 

*CB-18 
K.X-17 
M.4-13 
*NA-82 
*NA-88 
0.X-15 
* CB-28 
0.X-12 
*CB—32 
*CB-2 


i aa 
Q.4-11 
0.4-11 
sT=6 
N..Y-12 
N.5-9 
Ny 5-7 
Dy 6=11 
G.7-1 
¥.8=t1 
Gel=5 
K.Y-2 
K.Y-14 
E.?-2 
F.9-4 


H.6-14 
E.X-12 


G.7-18 
Peres 
P.Y-4 
K.X-16 
NeteLe 
J.2-6 
J.2-3 
On Y=3 
0.Y-4 
O.¥=1 
Ost<2 
su ag ag 


N.1-18 
R.4-11 
Peers 


Q.r=5 


E.7-8 
G.9-6 
Gel<6 


Jeno 
H.2-13 
G.6-14 


G.9=1 


JX-12 
N.3-3 
Lei-8 


£. 111 


N.¥-9 


*9/22 


G .7-4 
G.9-2 
M53 


Jsee 


|G .5-14 F.5-14 F.6~14 E.6-14 


/81 PAGE 12 


G.8-11 


Nwo=i1. 
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*MAG TAPE/RPU INT (MTRB.WR) 


SLG 
SLG/ 
SMDONE/ 
SRDONE/ 
STRT 
STRT/ 
TR1 
TRS 
TR2 
TR2/ 
TRACK / 
VALID/ 
wC@ 
WC1 
WC1@ 
wCil 
wC12 
WC13 
wC14 
we15 
wC2 
WC3 
wC4 
wC5 
WwC6 
wc? 


wWC8 


P.Y-1 
*CB-34 
hs343 
E.Y-3 
*NA-52 
F.2-10 
0.X-19 
*CB-50 
0.X-16 
*CB-46 
N.4-13 
F.1-6 
¢.5-2 
¢.5-4 
D.5-6 
D.5-8 
De =11 
D.5-13 
D.5-15 
D.5-17 
C.5-6 
C.5-8 
C.5~11 
C .5-13 
C.5-15 
C.5-17 
D.5-2 
D.5-4 
Lir-6 


Same 
Paes 
Q.Y-4 
F.W-3 
F411 
F.1-2 
0.¥-9 
0.Y-8 
0.%=5 
0.Y-6 
0.X-11 
L..o715 
E.6-7 
E.6-6 
E.5-2 
E.5-3 
i .5=7 
E.0=6: 
Fe O52 
F.5-3 
E.6-2 
E.6-3 
f26-7 
F.6-6 
F.6-2 
F.6-3 
E.5-7 
E.5-6 
0.Y¥-13 


*Q/22/81 


C 


rs 
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*MAG TAPE/RPU INT (MTRB.WR) 


WDE/ 
wDS 
WDS/ 
WEN 
WEN/ 
WND/ 
WNOVA1/ 
WNOVA2/ 
WNZ 
WNZ/ 
WRITE/ 
XTAL1 
XTAL2 


*CB-42 
L.W-4 
*CB-48 
L.¥-5 
*CB-26 
*CB-6 
N.4-15 
N.47-14 
L.W-6 
*CB-44 
J .X-28 
L.8-38 
L.8-39 


O.Y=L2 
Q.Y-8 
N.Y-13 
Pa i=3 
P.Y¥=6 
L.W-24 
Q.5-12 
0.35-12 
O.%-11 
0.Y-12 
bate 
M.9-1 
NeS<2 


Q.1s9 


M.Y-13 
R.o-L2 
Peorhe 


L.W-13 


*9/22/81 


N.Y-6 


L ° 8-32 


L.3-17 


f 


TOTAL NUMBER OF WIRE WRAPS: 
TOTAL PINS USED: 998 


1342 
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C204 
C@O5 
COB2 
COOS 
CB22 
C801 
COLE 
C087 


C8e8 
C229 
C@O8 


DOO1 


DOGS 


DOO3 
D@Ge 
DOC8 
DSO 
DOOB 
D@EC 
DOOD 
DOOE 


CZS8 


CB@9 


* MAG TAPE INTERFACE PROGRAM 
* 12/18/82 B. UNDERHILL 
* 


* M6829 1/0 DEFINITIONS 


* RAM eh 

* ROM1 F2OE 

* ROM2 $F800 

* REGISTERS WHICH COMMUNICATE WITH THE NOVA 

ZNAH EQU $CQ04> NOVA DOA/DIA, HIGH ORDER 

ZNAL EQU $0205 LOW ORDER (WRITE SETS ‘DIA’, READ 
ZNBH EQU SCOBZ | NOVA DOB/DIB 

ZNBL EQU $0283 

ZNCH EQU $COOB NOVA DOC/DIC 

ZNCL EQU $0281 

ZNDH EQU as NOVA DATA CHANNEL IN/OUT 

ZNDL EQU C8O7 

* OTHER NOVA RELATED LINES 

ZDONE EQU $C8GS WRITE: SET ‘DONE’ TO THE NOVA 
ZDCHR EQU $0829 WRITE: SET DATA CHANNEL REQ 

ZDCHC EQU $0228 READ: SET THE DCH CYCLE COMPLETE F 


* 6522 PIA LINES 

ZPORTA EQU $DO01 PORT A —- OUTPUTS TO DRIVE 

* BIT @ REVERSE MOTION 

1 FORWARD 

ra HIGH SPEED (EITHER DIRECTION) 

3 WEN- WRITE ENABLE & ERASE ON 

5 RWD—- REWIND (COMPLETES AUTOMATICALL 
2 SLG¥- SELECT GATE TO DRIVE- ENABLES 
a) 
6 
a 


28 


PORTB EQU $De2e PORT B- 3S INPUTS 
INPUT BOOT STATE- @ IF BOOT 
INPUT MBUSY- 1 IF NOVA HAS SET BUSY 
INPUT MDCHACT- 1 IF DATA CHANNEL CY 
ZDIRA EQU $D903 DIRECTION REGISTER FOR PORT A 
ZDIRB EQU ae DDR FOR B, @=INPUT, 1=OUTPUT 
T2LOL EQU DLOB TIMER#2 LO ORD LATCH 
T2HOC EQU $D@09' TIMER #2 HI ORD COUNTER 
TZACR EQU SDOOB TIMER #2 CONTROL REG 
ZCTRL EQU $DEOGC, PERIPH CTRL REGISTER, CONTAINS $1] 
ZINT EQU $D@@D INTERRUPT FLAGS REGISTER (READ) 
ZINTE EQU $DOOE INTERRUPT ENABLE BITS REGISTER ( 


HHAN KH HH H 


* LATCH BUFFER OUTPUTS 


DPORTB EQU $0908 
* BITS @-3 OUTPUTS TO DRIVE 


7 BIT @ TR1 TRACK SEL 

“ 1 TRE @=T1, 1=T2e, 2=T3, 3=T4 

= 2 SL1- DRIVE SELECT 

= 3 SL2 

* BIT 5 CONTROLS DATA CHANNEL DIRECTION 

i 5 DATA CHAN DIRECTION— Q=OUTPUT FROM N 
* INPUTS FROM DRIVE VIA THE 249 

ZR240 EQU $C@89 READS THE 248 

* BIT @ [1] SLD- ADD RECEIVED 

- 1 [2] BSY~- FWD, REV, 0 NDING 

x 2 14 WND- WRITE ENB I EERAGRSREAS 
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* 3 [8] FUP— TAPE IN & UNPROTECTED 
% 4 [10] FLG- HAS REWOUND OR LOADED 
& * 5 [2a] EWS- EARLY WARNING SENSE, EOT 
* 6 [4 | LPS— LOAD PT SENSED IN REV (BOT) 
* 7 [8 RDY- TAPE IN & LAMP ON & +5 OK 
* 6852 USRT REGISTERS 
D892 ZSYNCZ EQU $ DEeZe STATUS (READ) -------  CTRI1 (WRI 
* BIT @ RCVR DA 1=RCVR RESET 
4. XMT TDRA 1=XMTR RESET 
2 (DCD) DAD STRIP SYNC 
3 (CTS) WND CLEAR SYNC 
4 XMT UNDERFLO T INT ENB =0 
5 OV ERR R INT ENB =@ 
6 PAR ERR AC1 (SEL OUTP REG 
id INTR REQ AC2 (FOR ZSYNC1) 
D8a2 SYNC1 EQU $D82 DATA REGISTER 


READ: GETS INPUT DATA BYTE 
WRITE: IT IS ONE OF 4 REGISTERS 
WRITE REGS: OUTPUT DATA BYTE 
WRITE REG2: SYNC CODE 


WRITE REG@ -------- RFG1 CODES ARE: 
BIT @ PC1 (=2) INT/EXT (=2) 
1 (DTR*) WDE* NSYNC (=1) 
2 NBYTES (=1) CLR CTS 
3 wS1 CLR TUF 
4 ws2 X 
5 WS3 X 
@ 6 XMT SYNC ON UF X 
? ERR INTR (=@) x 


NOTE- INITIAL START MUST GO TO “INIT” 
FAST INTERRUPT MUST GO TO ’FIRQ’ 


HHMERHHHRHHHRHHHHEN HH He HHH 


ya 


OOOO 
BOOB 
0882 
COO4 
2005 
2087 
CELLO 
SOSB 
QOD 


GOOF 
C012 
@811 
812 
0013 
0214 
6@15 
0816 
6217 
® 018 
@219 
OO1A 
0610 
21D 
O@1E 
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ZLGB2 
2892 
O61 
BOS2 
C882 
QOG2 
BOS2 
0002 


0288 
0040 
@ODF 
8862 
QO57 
@022 
BOO1 
C001 
@OO1 
@O91 
OO@1 
@OO1 
O2S1 
@9O1 
O81 
OOC1 
BOS1 
O202 
O©OO1 
@801 
OO01 


* RAM ALLOCATIONS 
* THE BASE (DIRECT ADDRESSING) PAGE IS DEFINED AT LOC @ 
* BUT WILL BE AT F8Q@ AT RUN TIME (DP=$E8) 


NOVADD 
NOVWC 
STATUS 


i i 


STATI 
STATII 
LACHH 
LACHL 
ERRBH 
ERRBL 
MPORTB 
PARITY 
LRCC 
FS EEN 
PECNT 
LCOMM 
ECHAR 
FCHAR 
ERRBIT 
INTRW 
READSP 
RECCNT 
TAPDIR 
RSYNC 
RFMAR 
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ORG 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
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$08 DIRECT PAGE- RUNS AT E802 
TEMP 
TEMP 
TEMPORARY- FOR TEST PROGRAMS 
TIMEOUT COUNTER FOR READ ROUTINE 
NOVA COMMAND (DOA) 
NOVA’S DMA ADDRESS 
NOVA’S WORD COUNT (NEGATIVE) 
DIA STATUS TO NOVA 
THIS/ IS A LATCH FOR BITS 135 7 18 14 
THE OTHERS ARE READ DIRECTLY FROM STATUS 
eee WHEN NEEDED 
S) 
3 


ONIN NP NP 


STATUS BITS ARE: (UPPER BYTE) 
[NOVA @] ERROR- AN ERR BIT IS ON 
{[1] *DATA LATE DURING LAST READ 
{2 REWINDING 
*ILLEGAL COMMAND 
[4] HI DENSITY— ALWAYS 1 
is} *PARITY ERROR 
*EOT- ERROR IF FWD MOTION REQ. 
[7] *FILE MARK (ERROR) 
BYTE 
[8] BOT (ERROR ONLY IF REVERSE) 
{9] 9-TRACK— ALWAYS 1 
La) *BAD TAPE 
{1a 
[12] 
re WRITE LOCK (ERROR ONLY IF WRITE) 
[14] *ODD CHARACTER 
[15] READY 
NOTE: ERROR BIT IS ALWAYS ON IF A STARRED 
BIT IS ON. IT ALSO MAY BE SET BY OTHER 
CONDITIONS DURING AN OPERATION. WILL STAY 
SET TILL NEXT OPERATION OR RESET. 
$08 DEFAULT VALUE FOR STATUS 
$4¢ FOR STATUS 1 = 9 TRACK 
$DF LATCHED BITS IN UPPER BYTE 
$62 LATCHED BITS IN LOWER 
$57 BITS THAT CAN CAUSE THE ERROR BIT 
$22 TO GO ON 
MEMORY IMAGE OF DPORTB 
“OR” OF STATUS BYTES HAVING PAR. 
LRCC OF A RECORD 
NO OF FILEMARKS SEEN SINCE REW. 
NO OF BYTES WITH PARITY EROR 
LAST COMMAND ISSUED 


QPVyQarhuognrtHyQreryGa hoon 
(eo) 
= 
tx 
w 


FIRST CHAR OF A RECORD- 22 OR 55 |( 
TEMP—- BITS THAT CAUSE ERROR FLAG II 
INTERRUPT IS HANDLING READ(@) WRI 
@=READ, 1=SPACE REV, 2=SPACE FwD 
RECORD COUNTER FOR SPACING 

TAPE DIRECTION: 2=FWD, 1=REV 
READ SYNC CHAR_NOW BEING USED 
FILE MARK =| (2 LOOKING FOR 


CORPORATION 


PRPRPNURP RPP RPRPRP PPP PPB 


/ 


QO1F 
9020 
—} 2021 
022 
9923 
0024 
2026 
0027 
E860 
E862 


E9OD 
E906 
EBQO 
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@001 EOTBIT RMB 
BBO COUNT RMB 
QOO1 WRITOK RMB 
OOC1 NPAGW RMB 
$001 NPAGR RMB 
G22 TEMPY RMB 
O2QO1 BSYSET RMB 
@BB2 PSCNT RMB 
ORG 
BOBBC POSTAM RMB 
ORG 
Q2LO BUFF RMB 
BOOB BUFTOP RMB 
EB48 BUFTR EQU 
EBFF RAMTOP EQU 


ok 
* 


* NOTE- DEBUGGER USES RAM FROM E83@ TO E858 


NPN RP PRE 
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MASK FOR TESTING EOT/BOT 

FOR WRITE ROUTINE 

@ IF READ-AFTER-WRITE ERRORS 

N PAGES TO WRITE 

N PAGES TO READ-AFTER-WRITE 
HOLDS Y TEMPORARILY (WRITE) 

RAM FLAG TO INDICATE ECLIPSE SET 
WRITE POSTAMBLE COUNT 


POSTAMBLE 
IS MEM BUFFER 
(TOP OF BUFFER)+1 


ADJUSTABLE BUFF TOP FOR READI 
LAST LOC IN RAM- STACK TOP 


/ 


’ 


MTAPE. 


F800 
F8O0 
F8G4 
F886 
F888 
FBGA 
FBSC 
FEOE 
F818 
F814 
F817 


F819 
Fe1C 
F81E 
F820 
F823 
F825 
F827 


F829 
F82A 
F820 
F82E 
F830 
F832 
¥834 
F836 
F838 
F83A 
F83C 
F83F 
F841 


F843 
F845 
F847 
F849 
F84B 
FE4E 
F851 
F853 
F856 
F859 
F8E5B 
F85D 
F85F 
F862 


MS 


10CE 
86 
iF 
86 
or. 
86 
97 
AD 
BD 
1¢ 


BD 
96 
26 
B6 
85 
26 
2@ 


4F 
97 
86 
97 
86 
o7 
86 
97 
86 
97 
B6 
85 
ee 


86 
97 
86 
97 
BD 
FC 
DD 
FD 
FC 
27? 
BA 
DD 
FC 
DD 
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OPT G FORM FCB’S 

* BEGINNING OF CODE 

* NOTE- DEBUGGER ROM IS ASSUMED TO BE IN FOOQ-F7FF 
ORG $ F822 


EBFF INIT LDS #RAMTOP INITIALIZE STACK 
E8 LDA #$E8 SET THE DIRECT PAGE REG. TO 
8B TFR Aig P. 
08 LDA ASTATI ADD HIGH DENSITY BIT 
OD STA STATUS CLEAR STATUS LATCHES 
42 LDA #STATII ADD 9 TRACK BIT 
@E STA STATUS+1 
OF FVFE JSR [$F7FE] meumek INITIALIZE DEBUG ****eH 
FDCS JSR SELUS SET UP & INITIALIZE ALL 
EF : ANDCC #$EF ENABLE IRQ 
* MAIN LOOP 


* KEEP STATUS UP TO DATE, NOVA MAY BE READING IT 
* LOOK FOR A COMMAND ISSUED 


FE11 MAIN JSR SHOW MAINTAINS DIA STATUS 


26 LDA BSYSET SEE IF NOVA BUSY HAS BEEN SET 
9 BNE CMDISU IF SET, COMMAND HAS BEEN ISSU 
DOBO LDA ZPORTB SEE NON LATCHED BUSY 

4% BITA #540 

82 BNE CMDISU YES GO DO COMMAND 

FS BRA MAIN NO, JUST LOOP AROUND 


A COMMAND HAS BEEN ISSUED 

FIND OUT WHAT, DISPATCH & DO IT 

FIRST CHECK TO SEE IF A BOOT CONDITION — 

~ NO DOA, DOB, DOC. THESE VALUES HAVE TO BE 
* - SET UP FOR A BOOT 

CMDISU CLRA 


HEH 


26 Lpa z2ezto STA BSYSET RESET "BUSY" 

G2 pee wie LDA #2 

LC STA TAPDIR DIRECTION ALMOST ALWAYS FWD 
7G LDA #570 

1D STA RSYNC SYNC CHAR, ALMOST ALWAYS 72 
55 LDA #555 

1E STA RFMAR FILE MARK CHAR- 55 IF FWD 
20 LDA #529 

iF STA EOTBIT USUALLY, TEST FOR EwS (FwD) 
DOSS LDA ZPORTB 

22 BITA #520 CHECK BOOT BIT 

2c BEQ BOOT IF CLEAR DO BOOT 


* NOT BOOT — NOW, CLEAR ALL THE LATCHED STATUS (ERROR) BITS 
* COPY THE DOA, DOB, DOC VALUES INTO MEMORY 


8 LDA #STATI GET INIT VAL 

@D STA STATUS CLEAR THE LATCH BITS 

42 LDA #STATII 

QE STA STATUS+1 (CLEAR ALL) 

FEi1 JSR SHOW BRING STATUS UP TO DATE 
C22 LDD ZNBH COPY THE DOB 

ke) STD NOVADD 

Cee2 STD ZNBH PUT IN DIB ALSO 

C222 LDD ZNCH COPY THE DOC 

G2 BEOQ SAVWC IF WORD CNT=0 LEAVE IT 
Bo ORA #380 ELSE SET HIGH ORDER BITS 
OB SAVWC STD NOVWC 

COO4 LDD ZNAH 

O" STD NOVCOM 


COPY THE 
O ri CORPORATION / 


f 
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F864 
F866 
F868 
F869 
F86A 
F86D 


F86F 
F872 
F875 
F877 
F879 
F87C 
F875 
F889 
F882 
F884 
F886 
F889 
F88B 


F88E 
F890 
F892 
F894 
F896 
F898 
F89A 
F89C 


F89E 
FEAO 
F8A2 


P8A4 
FSA? 
FRAO 
F8AC 
FSAF 
F8B1 
F8BS 
FEB6 
F8B8 
F8BB 
F8BE 
F8C1 


Ms 


C4 
D7 
SW 
sd 
8E 
65 


BD 
B6 
85 
27 
cc 
DD 
86 
97 
86 
97 
cc 
DD 
7E 


96 
BA 
97 


B6 
84 
BY 
B6 
85 
26 
7F 
86 
Bv? 
BD 
BY 
7h 


F88E 


FEFO 
C8O9 


G22 
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ANDB #$38 EXTRACT THE 3 COMMAND BITS 
STB LCOMM SAVE COMMAND VALUE 

ASRB GET THEM INTO BITS 3,¢,1 
ASRB 

LDX #DISPA GO TO THE RIGHT ROUTINE 

JMP (B,X] 


* BOOT ROUTINE — SOMEBODY HIT THE PROGRAM LOAD SWITCH 
BOOT JSR REWI REWIND FIRST 
BOOT2 LDA ZR240 WAIT FOR FLAG TO COME UP 


BITA #518 FROM DEI 
BEQ BOOT2 
LDD #@ 


STD NOVADD USE @ FOR ADDRESS 
LDA #STATI 

STA STATUS INIT STATUS 

LDA #STATII 
STA STATUS+1 
LDD #$~-420 
STD NOVWC USE $402 FOR WORD COUNT 
JMP READR GO READ IN A RECORD 


DNID STATUS. 24 


* DISPATCH TABLE FOR COMMANDS 


DISPA FDB READR BBO 
FDB REW G1 
FDB ILLEG 219 (OFF LINE- NOT USED) 
FDB SPACEF 211 
FDB SPACER 120 
FDB WRITE TOL 
FDB WRITEM 118 
FDB ERASE 111 


COMMAND CODE FOR WRITE FMK 
COMMAND CODE FOR REWIND 


COMWF EQU $39 
COMRW EQU $98 


* ILLEGAL COMMAND- SET “ILLEG’ STATUS BIT & RETURN 
ILLEG LDA STATUS 
ORA #2 oe. Weg ee 
“P —sTA STATUS BIT 4 OF UPPER WORD 


* END OF COMMAND EXECUTION 

* SET UP DIA STATUS, SET “DONE” TO NOVA 

ECOMM LDA ZPORTA STOP TAPE MOTION 
ANDA #SFC 
STA ZPORTA 

EWTNB LDA ZR24@ WAIT FOR DRIVE NOT BUSY 
BITA #502 BEFORE ALLOWING NEXT CMD 
BNE EWINB 
CLR ZPORTA RESET WEN IF IT WAS SET 


LDA #ZREG1 RESET THE USRT 

STA ZSYNCE (CTRL REG 1 ) 

JSR SHOW SETS UP DIA & DIB 

STA ZDONE SET DONE TO THE NOVA 
JMP MAIN THEN STAY IN MAIN LOOP 


ROUTINE TO REWIND 
NOTE: THERE IS A DELAY BEFORE THE NOVA_SEES THE 
“REWINDING” BIT IN THE DIA STATUS WORT 


He HH 


A CORPORATION 
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F8C4 


F807 
FECA 
F8CC 
F8CE 
F8D@ 
F8D3 
F8D6 
F8D8 
F8DA 
F8DD 
F8DF 
F8ES 
F8E6 
F8EA 
F8EE 


F8FO 
F8F2 
F8F5 
FEF? 
FOFA 
F8FC 
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* THIS ROUTINE RETURNS BEFORE THE REWIND IS FINISHED 


BD FDC9 JSR SELUO FOR TESTING, ONLY 
* SO THIS CAN BE CALLED FROM DEBUG 
BD FS8FO  REW JSR REWI START MOTION 
96 OF LDA MPORTB NOW SET TRACK 1 
84 FC ANDA #$FC 
97 OF eyorsta MPORTB SAVE IN MEMORY IMAGE 
BB? 6COG@B EK TA “DPORTB 
B6 C029 REWW A - ZR249% WAIT TILL MOTION STOPS 
85 2 ITA” #$2 BEFORE EXECUTING NEXT CMD 
26 FO BNE REWW LOOK FOR BUSY LINE DOWN 
B6 DOGS WNCM LDA ZPORTB AFTER BOOT, BUSY IS NOT CLEARED. 
85 40 BITA #$40 SO LOOK AT NON-LATCHED BUSY. 
1927 FF36 LBEQ MAIN IF NOT SET, GO TO MAIN LOOP FOR 
FC C04 LDD ZNAH NEXT CMD. ELSE, IF LAST CMD WAS 
1083 2628 CMPD #COMRW RWND, WAIT FOR BSY DOWN OR NEW CMD 
1026 FF2B LBNE MAIN NEW CMD, NOT REWIND. 
20 &EA BRA WNCM WAIT BEFORE EXECUTING NEXT. 
* SUBROUTINE TO INITIATE REWIND MOTION 
86 20 REWI LDA #520 PUT IN REWIND BIT 
B? = DOG1 STA ZPORTA = 
84 2 ANDA  #$@@ THEN PUT IT DOWN AGAIN 
B? D901 STA ZPORTA A PULSE IS ALL THAT IS NEEDED 
OFA; 12 CLR FSEEN CLEAR FILE MARK COUNTER 
39 RTS 


/ 


F8FD 
FSFF 
FOO1 
F903 
F995 
F988 
FOOA 


FOSC 
FOOE 
F916 
FOte 
F914 
F916 
F918 


@ vic 


FOIE 
F920 
F922 


F925 
FO27 
FOZ2A 
F92C 
FO2E 
F932 
F933 
F936 
FS39 
FO3C 
f FO3F 
F941 
F944 
F946 
F949 
FO4B 


MTAPE. 


MS 


86 
97 
DC 
DD 
CC 
DD 
20 


86 
97 
86 
97 
86 
ald 
86 
97 
20 


86 
97 
BD 


96 
BY? 
96 
BA 
97 
Bv 
8E 
BD 
B6 
B6 
86 
Bv 
96 
B? 
OY 
OF 


G2 
if 
OB 
1A 
BOOS 
OB 
16 


44 
1D 
54 
1E 
40 
1F 
1 
1C 
1 
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* SPACE FORWARD 

* USES THE READ ROUTINE, BUT HAS THE FOLLOWING DIFF.: 

- DONT STORE DATA 

al DONT TEST LRCC OR PARITY 

* AFTER READING A RECORD, TEST THE RECORD COUNTER, 
GO AGAIN IF NECESSARY 

* A FILE MARK WILL TERMINATE THE SPACING LOOP 


% 


SPACEF LDA 
SPACE STA 
LDD 
STD 
LDD 
STD 
BRA 


* SPACE REVERSE 

* USES THE READ ROUTINE, AS DOES SPACE FORWARD 

* YOU MAY NOT GET ANY SYNCS IN REVERSE, SO THE 

* ONLY REQUIREMENT IS TO SEE DAD GO UP THEN DOWN. 


SPACER LDA 
STA 

LDA 24248 LDA 
BIA 4s STA 
TNE WEG LDA 
STA 

LDA 

STA 

BRA 


* READ A RECORD 

* BEFORE STARTING MOTION, LOOK AT EWS (EOT FLAG) 
* IF HIGH HERE, DONT START READING-— CHANGE TRACKS 
* IF T1,2, OR 3 NOW, REWIND & START OVER 

* IF ON TRACK 4, RETURN WITH EOT ERROR TO NOVA 


READR LDA 
STA 
RXS JSR 


* SET UP TO 
LDA 
STA 
LDA 
ORA 
STA 
STA 
LDX 
ISR 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
CLR 
CLR 
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READ THE RECORD 
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#2 SET “READSP’” FLAG 

READSP 

NOVWC GET RECORD COUNT 

RECCNT 

#@ THEN SET WORD COUNT TO @ 
NOVWC THIS KEEPS IT FROM STORING DAl 
RXS THE REST IS IN COMMON WITH 


#$44 USE DIFFERENT SYNC CHAR 
RSYNC 

#$54 

RFMAR FILE MARK RECOGNIZER 
#54G 

EOTBIT LOOK FOR BOT, NOT EOT 

#1 

TAPDIR SET UP REV DIRECTION 
SPACE ALSO STORE 1 IN READSP 


#@ 
READSP SET FLAG- WE ARE READING 
TSTEOT TEST FOR EOT 


TAPDIR START SLOW FWD MOTION 
ZPORTA 

MPORTB SET DMA DIRECTION- TO NOVA 
#520 

MPORTB SAVE IN MEM IMAGE LOC 
DPORTB 

#25 WAIT 25 MSEC 

WAIT DONT READ CRAP IN THE GAP 
ZINT 

ZPORTA CLEAR THE LATCH FOR CAi IN 65 
#588+ZREG1 RESET THE USRT (& DAD LATCH) 
ZSYNCO ALSO SETS CLEAR-SYNC BIT 
RSYNC SET UP SYNC CHAR 

ZSYNC1 


PARITY 


PECNT PARITY ERR NTER 
CORPORATION 


f 
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F94D 
FO4F 
F951 
F953 
F956 
F959 
FOSB 
FOSE 
F960 
F963 
F965 


F968 
FO6B 
F9O6D 
FOO6F 
FO?71 
F973 


FO75 
F977 
F979 
FOB 
FO?E 
F988 
F982 
F984 
F986 
FO89 
FO8B 
FO8F 


F992 
F995 
F997 
F999 
F9OSC 


FOQE 
FOAS 
FOA1 
FOAS 
FOA6 
FOA8 
FOAA 
FOAD 
FOAF 
FOBT 
FOB4 
FOB6 
FOB8 
FOBB 
FOBD 


MS 


9215 
16 
25 
1F 
iF 
9 


19 
1 
3 
FAB? 
OE 
20 
GE 
3 
DESO 
Ad. 
C820 
F8A4 


D8OS 
04 
05 
D882 
CD 


19 


FD 
D820 
@4 
@5 
D882 
BC 
G9 
D828 
04 
BD 
DOOD 
O1 
F2 
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LDA #522 INITIALIZE LRCC 

STA LRCC 

CLR INTRW SET INTERRUPT RTN TO READ MOD 
LDA ZDCHC SET THE DCH COMPLETE FLAG 

LDY NOVWC KEEP WCNT IN Y 

LEAY Sigh DECR BY 1 (NEED -WCNT-1) 

LDU #BUFF START MEM BUFF POINTER 


LDA #XCCOCCL1S NOW ENABLE THE USRT RECVR 
STA ZSYNCO 
LDA #515 SET FOR 7 BIT WORD, 1BYTE MO 
ie) ZSYNC1 
* NOW LOOK FOR RISING EDGE OF “DAD’ - IS START OF DATA 
* WE ARE SEEING DAD COMPLEMENTED IN STATUS REG. 
* IN THIS LOOP YOU CAN GET A TIMEOUT IF THERE IS NO DATA 
* IN WHICH CASE YOU RETURN WITH BAD TAPE FLAG. 
* NOTE- EWS IS CHECKED UNTIL DAD SEEN 
* AFTER THAT, JUST READ WITHOUT CHECKING EWS 
* TIMEOUT LOOP TAKES 33 CY = 22 USEC 
LDX #533 INIT TIMEOUT COUNTER- 3 SEC 


R6 DEC FCHAR TEMP COUNTER- COUNT TO 256 
BNE NOTIMO 
LEAX ~2 ad COUNT DOWN, LOOKL FOR TIMEOUT 
BNE NOTIMO COMES HERE EVERY 4.3 MS 


BRA DADBAD 

* TIMED OUT-— SET BAD TAPE & RETURN 

ESIG LDA READSP IF SPACING REVERSE, LOSING 
CMPA #1 SIGNAL ISNT AN ERROR 
BNE DADBAD OTHERWISE IT IS 
JMP EREAD 

DADBAD LDA STATUS +1 SET BAD TAPE FLAG 


ORA #520 

STA STATUS +1 

LDA #ZREG1 RESET THE USRT AGAIN 
STA ZSYNCO 

LEAY Lit SEND WDCNT TO NOVA 
STY ZNCH 


JMP ECOMM 
* TEST WHETHER DAD* HAS GONE DOWN 
NOTIMO LDA ZSYNCO 


BITA #54 

BEQ DAD1I DAD* WENT DOWN 

LDA ZSYNC1 ELSE CLEAR DAD LATCH 
BRA R6 AND KEEP LOOKING : 


* OK, DAD HAS GONE HI-— WAIT FOR DUMMY SYNC 
DAD1 LDA #25 


DAD2 DECA WAIT 9@US & TRY DAD AGAIN 
BNE DAD2 
LDA ZS YNCO 
BITA #4 
BEQ DADS O.K. DAD* STILL HI 
LDA ZSYNC1 ELSE RESET THE DAD LATCH 
BRA R6 AND TRY AGAIN 
DADS LDX NOVADD SET UP ADDRESS 
RSYN LDA ZSYNC@ TEST DAD ALSO 
BITA #54 IF IT GOES DOWN, EXIT 
BNE ESIG 
LDA ZINT LOOK FOR THE SYNCMATCH PULS 
BITA #1 


BEQ RSYN I 
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FOBF 86 31 LDA #331 SET TO OBIT MODE, 2 BYTE 
F9C1 BY” D882 STA ZSYNC1 
a FOC4 B6 DQG1 LDA ZPORTA CLEAR THE CA2 INPUT LATCH 
* WAIT FOR FIRST CHARACTER 
FOC? B6 D88S READF LDA ZSYNCO GET STATUS 
FOCA 85 24 BITA #54 DID DAD GO DOWN AGAIN 
FOCC 26 A? BNE ES IG YES, BAD TAPE ERROR 
FOCE 85 @1 BLTA #S1 IS CHAR (ACTUALLY 2 CHARS) T 
FODO 27 FS BEQ READF NO 


* 2 CHARS ARE AVAILABLE IN USRT 
* THRE °’R* CHAR—- CHAR AFTER THE SYNC (3F) 
* THE “PF” CHAR- 22 OR 55 


FOD2 BE D8e2 LDA ZSYNC1 GET E CHAR 
FOD5 97 815 STA ECHAR SAVE IT 
FOD? B6 DB2e LDA ZSYNCO GET STATUS FOR NEXT CHAR 
FODA 85 =62 BITA #$62 TEST PE, OV 
FODC 27 82 BEQ R? OK 
FODE 97 12 STA PARITY ERROR ON FIRST CHAR, STORE STA 
FOFS B6 D882 RF LDA ZSYNC1 
FOR3 97 16 STA FCHAR STORE FIRST CHAR IN MEM FOR L 
FOE5 91 125 CMPA  RFMAR IS IT A FILE MARK 
FOE? 1027 2187 LBEQ RFMK YES, EXIT HERE 
FOEB 86 B1 LDA #ZREG2+$8@ ENABLE THE EIE INTERRUPT 
FOED B7 DeEeG2 STA ZSYNC1 TO FIRQ 
FOFO 10 BF ANDCC #$BF ** PUT BF HERE TO ENABLE FIRQ 
FOF2 20 @A BRA RLOOP1 THEN GO INTO MAIN READ LOOP 
* MAIN DATA READ LOOP 
ie} * X HOLDS THE NOVA ADDRESS 
* Y HOLDS THE -WORDCOUNT (-1) 
* U HOLDS THE ADDRESS IN BUFFER RAM 
* READS 2 BYTES, STORES IN 1 WORD IN NOVA 
* ALSO STORES IN 256 BYTE CIRCULAR BUFFER IN RAM 
* IF PARITY ERROR, AN INTERRUPT OCCURS, FLAG IS SET 
* WHEN END OF DATA OCCURS, DAD GOES DOWN, INTERRUPTS. 
* IF THERE ARE MANY PARITY ERRORS, THIS LOOP WILL BE TOO 
* TONG AND OVERRUNS WILL ALSO OCCUR. 
* [TF WORD COUNT RUNS OUT BEFORE END OF DATA, THE READ 
* CONTINUES BUT DATA ISNT STORED. THE LRCC MUST STILL 
* MATCH OVER THE ENTIRE RECORD. 
* THERE ARE 3 LOOPS IN THE READ ROUTINE 
* TOOP 1-— REAT INTO RUPFRR TNTIL FULT (OR DAD DOWN) 
FOF4 85 04 NOBY1 BITA #$4 TEST DAD 
FOF6 27 26 BEQ RLOOP1 TP! OF 


* DAD WENT DOWN IN LOOP 1, HAVENT STARTED TO DMA YET 
* SET UP PARAMS, GO DIRECTLY TO LOOP 3 TO DMA IT 


FOF8 8E  E8FE LDX #BUFF-2 POINTER FOR SENDING 

FOFB 7E FAB? JMP EREAD 

* DOOP 1 STARTS HERE 

FOFE B6 D8@@ RLOOP1 LDA ZSYNCO TEST STATUS 

FA@1 85 @1 BITA #$1 

FAQ3 27 &F BEQ NOBY1 NOT READY, TEST DAD 

FA25 B6 Dee2 LDA ZSYNC1 GET FIRST CHAR— WILL INTERRUP 
& FA@8 F6 D8Gz LDB ZSYNC1 ON ERROR 

FA@B ED Cl STD ,U++ PUT IN RAM 

FAQD 98 $11 EORA  LRCC PUT IN LRCC 

FA@F 97 11 STA LRCC 

FA11 D8 11 EORB LRCC 


PAI3.DR “411 STB LRCC Ala 
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FA15 1183 EB4a CMPU #BUFTR DO THIS UNTIL BUFFER IS FULL 
FA19 26 £3 BNE RLOOP1 (OR DAD GOES DOWN) 
®, * JOOP 2—— READ INTO BUFFER, WHILE WRITING OUT OF 
* THE SAME LOCATION BEFORE FILLING IT 
* HOR SHORT RECORDS, LOOP 2 WILL BE SKIPPED 
FAIB CE £900 # RLI2 LDU #BUFF START U AT BUFFER 
FAIE BF C@@2 RLOOP2 SsTx ZNBH SET UP NOVA ADDR 
FAZi¢3% 21 GOAT ee ek TEST NOVA WD COUNT 
FA23 27 29 BEQ wCcOUT IF NONE LEFT, DONT DMA 
FA25 EC C4 LDD @,U OK, SET UP DATA TO DMA 
FA27 FD C@@6 STD ZNDH 
FA2A B? C@@9O STA ZDCHR START THE CYCLE 
FAZD 36 8 =@1 LEAL *1,x NEXT NOVA ADDR 
FA2F B6 D886 READM LDA ZSYNCO NOW LOOK FOR NEW WD READY 
FA32 85 01 BITA #$1 
FAS4 27 27 BEQ NOBYT NO 
FA36 B6 D822 LDA ZSYNC1 YES, GET IT- 1 BYTE AT A TIME 
FASO FE D8e2 LDB ZSYNC1 
FASC ED C1 STD »U++ PUT IT IN THE EMPTY SLOT 
FAZ3E 98 11 EORA  LRCC 
FA40 97 11 STA LRCC 
FA42 D8 11 FORB LRCC 
FA44 D? 11 STB LRCC 
FA46 1183 EB4@ CMPU #BUFTR 
FA4A 26 D2 BNE RLOOP2 BUFF NOT FULL 
FA4C 20 CD BRA RLI2 BUFF FULL, RESET IT 
FA4E 31 3F wCOUT LEAY -1,Y WD COUNT OUT, RESET TO -1 
a FA5@ 20 DD BRA READM 
x 
* IRQ INTERRUPT HANDLER : 
* SET “BSYSET IF ECLIPSE HAS SET BUSY 
* CLEAR LATCHED STATUS BITS IF ECLIPSE HAS SET CLEAR 
*& 
FA52 B6 DOOD HIRQ LDA ZINT READ THE 6522 FLAG REGISTER 
FA55 F6 DOGO LDB ZPORTB CLEAR INTERUPT 
FAS8 85 1 BITA #8190 1S CBi (BUSY) SET? 
FA5A 27. 04 BEQ HIRQ2 BRANCH IF NOT 
FA5C C6 10 LDB #518 
FASE D7? 26 STB BSYSET SET RAM BUST FLAG NON-ZERO 
FA6@ 85 @8 HIRQ2 BITA #$@8 IS CB2 (CLEAR) SET? 
FA62 27 @E BEQ HIRQ3 BRANCH IF NOT 
te 
* ECLIPSE HAS SET "CLEAR" 
FA64 C6 28 LDB #STATI 7 “ 
FA66 D7? @D STB STATUS SET STATUS BYTES TO “CLEAR 
FA68 F? C@24 STB ZNAH & PUT THEM IMMEDIATELY TO E 
FA6B C6 41 LDB #STATII+1 
FA6D D? @E STB STATUS+1 
FAGF F? C@@5 STB ZNAL 
FA72 85 22 HIRQ3 BITA #828 IS IT TIMER #2 TIME-OUT? 
FA74 27 16 BEQ HIRQX NO. 
FA76 C6 2¢@ LDB #520 YES. DISABLE IT FROM FURTHER 
a) FA78 F? DOOR STB ZINTE IRQS 
FA7B 32  6C LEAS 12,S CLEAN STACK, NOT DOING RTI 
FA?7D 86 A LDA #S@A STOP THE STROBES 
FA7F B?  D@@1 STA ZPORTA 
FA82 86 C2 LDA #5C2 DISABLE THE XMIT 


FA84 BY? DEOS STA ZSYNCS 2 fa] 
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FA8? 
FA89 
FASC 


FA8D 
FAQ@ 
FAQ2 


FAQ4 
FAQS 
FAQA 
FASC 
FAQE 
FAAQ 
FAAS 
FAAS 


FAA6 
FAA8 
FAAB 


FAAD 
FAAF 
FABS 
FABS 


FAB? 
FAB9 
FABB 


FABE 
FACS 
FAC2 
FACS 
FAC6 


FAC8 
FACA 
FACC 
FACE 


MS 


1C 
7E 
SB 


B6 
85 
26 


128C 
27 
9A 
97 
eC 
B6 
35 
OB 


86 
B7 
20 


85 
1027 
OF 
IF 


1A 
86 
B7 


96 
26 
4F 
B? 
29 


cB 
3 
oF 
1026 


D828 
4 
12 


FFFF 
6 
10 
18 
13 
D8e2 
6 


1A 
@1 
1A 
FES@ 
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ANDCC #$5EF ENABLE IRQ 
JMP WLSBAD 

HIRQX RTI 

* 


READ-CHAR INTERRUPT ROUTINE 
FIRQ INTERRUPTS TO HERE ON “EIE’- PARITY ERR, 
QVERRUN, DAD FALLING EDGE, OR (SHOULDNT HAPPEN) CTS, 
XMT UNDERFLOW 
ON PE OR OV, JUST SET FLAG, RETURN TO LOOP. THIS WILL 
INCREASE THE TIMING OF THE LOOP SO THAT IT WILL FALL 
EHXIND, AND THEN GIVE OV ERRORS ALSO. 
IN DAD TRANSITION, THIS IS THE END OF THE RECORD. 

IRIQR LDA ZSYNC@ GET STATUS 

BITA #54 IS DAD DOWN 

BNE ENDREC YES, END RECORD 
PE OR OV, ‘OR’ THE STATUS WORD INTO “PARITY” IN RAM 
NOTE: IN ORDER TO CLEAR THE INTERRUPT, WE HAVE TO 
READ THE DATA CHARACTER. THIS WILL SCREW UP THE MAIN 
LOOP, WHICH IS ALSO EXPECTING TO READ IT. THAT“’S 
WHAT YOU GET FOR HAVING PARITY ERRORS. 
NOTE 2- IGNORE BAD PARITY AFTER THE WORD COUNT 
HAS RUN OUT- SO YOU DONT CHECK THE GARP AT END 

CMPY #1: 

BEQ FR2 NO WORD COUNT, DONT TEST 

ORA PARITY 

STA PARITY 

INC PECNT COUNT BYTES WITH ERRORS 


i 


ee HH HHH H 


FR2 LDA ZSYNC1 READ THE DATA CHAR 
FR3 PULS D RETURN TO MAIN LOOP 
RTI 


* ND OF RECORD 
* DISABLE THE EIE INTERRUPT SO YOU CAN RETURN TO 
* THE MAIN LOOP. IT WILL EXIT TO “NOBYT’ AT THE 
* NEXT OPPORTUNITY. 
ENDREC LDA #ZREG2 

STA ZSYNC1 


BRA FR3 RETURN FROM INTERRUPT 
* TEST FOR EXIT FROM READ LOOP 
NOBYT BITA #54 TEST DAD BIT 
LBEQ READM IF DAD IS HI, KEEP LOOPING 
STX NOVADD UPDATE NOVA ADDR 
TFR U,x LOAD POINTER FOR COPYING O 
* OK, DAD WENT DOWN— END THE READ ROUTINE 
ERHAD ORCC #440 MASK OUT THE INTERRUPT 
LDA #ZREG1 RESET THE USRT 


STA ZSYNCO 
* BRANCH HERE BETWEEN READING AND SPACING 

LDA READSP 

BNE ES PAC 

CLRA ON END OF READ, 

STA ZPORTA STOP MOTION 

BRA READ2 
* SPACING- TEST RECORD COUNT. READ ANOTHER IF NOT @. 
* TEST FOR BOT, ETC ON EVERY RECORD 
ESRAC LDX RECCNT 

LpAx “Ack 

STX RECCNT 


LENE RXS READ ANC 
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FAD2 96 1C LDA TAPDIR ON LAST REC OF SPACING: 
FAD4 81 291 CMPA #1 
G FAD6 26 26 BNE EREADX ON SPACE REV, KEEP 
FAD8 8E O@@A LDX #12 GOING BACK AN EXTRA 
FADB BD FE74 JSR WAIT 19 MS. 
FADE 16 FDC3  EREADX LBRA ECOMM ELSE DONE 
FAE1 OG READ2 RMB @ 
* READ-- TEST FOR FRRORS 
* HERE, U POINTS TO LAST CHAR STORED (IN RAM) +1 
* U IS ALWAYS EVEN HERE BECAUSE BUFF STARTS AT EVEN NO 
* BACK UP, REMOVING CHARS FROM LRCC, UNTIL YOU SER 
* THE $22 RECORD TERMINATOR (REMOVE IT ALSO) 
* AT THAT POINT, THE LRCC SHOULD BE @ 
* HERE, NOVADD CT (LAST NOVA ADDR)+1 
*  X POINTS TO LAST WD SENT TO NOVA, INCR FIRST 
* U POINTS TO (LAST WD STORED IN RAM)+2 
* FIRST MOVE U BACKWARDS TO STRIP POSTAMBLE 
* THEN SEND (FROM X TO U) TO NOVA VIA DMA 
FAE1 86 15 RSTRIP LDA #30 LIMIT N BYTES 
FAE3 97 29 STA COUNT 
FARES @A 20 R8 DEC COUNT TEST COUNT, QUIT IF >30 
FAE? 27 2B BEQ R&C 
FAEOS 33 OF LEAU -1,U BACKSPACE U BY 1 
FAEB 1183 E8FF CMPU #BUFF-1 DID IT GO OVER THE BOTTOM 
FAEF 26 3 BNE R8A 
FAFi CE &B3F LDU #BUFTR~1 YES, WRAP 
FAF4 A6 C4 RSA LDA ®,U GET CHAR 
FAF6 98 11 EORA  LRCC REMOVE FROM LRCC 
& FAF8 97 11 STA LRCC 
FAFA A6 C4 LDA a,U NOW, WAS IT 22 
FAFC 81 22 CMPA #522 
FAFE 26 £5 BNE R8 NO, KEEP GOING 
FBOS? 33 8 8605F LEAU -1,U POINT TO LRCC (IN EVEN BYTE) 
* TEST FOR ODD CHAR 
* IF YES, THE LRCC WILL BE IN ODD BYTE (OF SAME WD) 
* IN BOTH CASES, STRIP THE WD CONTAINIG 22, WILL 
* LEAVE YOU WITH 1 MORE WD IF IT IS ODD CHAR 
FB@2 1F 36 TFR U,D 
FBO4 C5 Ol BITB #1 TEST LSB 
FBE6 27 868 BEQ R8B IF EVEN, SKIP 
FBQ8 33 «84641 LEAW © L230 IF ODD, INCR U TO NEXT wD 
FBGA 96 OF LDA STATUS+1 SET ODD CHAR BIT 
FBGC 8A G2 ORA #$2 
FBOE 97 OF STA STATUS+1 
FB10 96 11 R8B LDA LRCC NOW TEST LRCC, SHOULD BE 
FBi2Z 27 @6 BEQ R8D @ HERE 
FB14 96 = @D R8C LDA STATUS LRCC ERROR 
FB16 BA @4 ORA #54 SET PARITY ERR BIT 
FB18 97 8 @D STA STATUS 
FBIA DF 24 R8D STU TEMPY 


* READ LOOP 3=-— DMA THE REST OF THE BUFFER INTO THE NOVA 
* TEMPY POINTS TO THE WORD FOLLOWING EOR 

* TRANSFER TO NOVA UNTIL WCNT RUNS OUT OR FOR REACHED 

x 

* 


INCR NOVA ADDR ON EACH WD SENT 
THEN RETURN FINAL WCNT, ADDR TO NOVA 
* NOTE, CURRENTLY, NEITHER READ NOR WRITE CONTAINS 
* A TEST FOR DMA OVERRUN TO THE NOVA 2222 sksj skate sok seat ak ak ok 
FBiC 1@8C FFFF RLOOPS CMPY #-1 IS WCNT O 
FB20 27 er BEQ RSDONE YES, QUIT A A 
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PB22 30 2 LBAX 2, LOOK AT NEXT WD IN BUFFER 
FR24 BC EB4O CMPX  #BUFTR IS THERE ONE 

@ 7227 26 93 BNE RBA 
FB29 8B BOG@ LDX  #BUFF WRAP AROUND IF AT TOP 
FB2C $C 24 RSA CMPX  TEMPY 
FB2E 27 21 BEQ RSDONE IF EOR 

* OK, DO A DMA CYCLE 

FB30 BE DOBE LDA ZPORTB MAKE SURE DMA IS READY HERE 
FB33 2B 96 BMI RSM IF OK 
FB35 96 OD LDA «STATUS IF NOT, SET DMA-LATE BIT 
FR37 BA 40 ORA #840 
FB39 97 3D STA STATUS 
FB3B 31 21 R3M LEAY 1,¥ INCR WCNT 
FR3D DC a9 LDD — NOVADD GET NOVA ADDR 
PBF FD cage STD _ZNBH 
FR42 C3 9001 ADDD #1 INCREMENT IT 
FB45 DD @9 STD  NOVADD 
FB47 EC 84 LDD = @, X GET DATA 
FB49 FD C06 STD _ZNDH 
FB4C B?  CBaS STA ZDCHR START CYCLE 
PR4F 20 CB BEA  RLOOPS 
FB51 31 21 R3DONE LEAY 1,Y SEND WDCNT BACK TO NOVA 
FB53 1@BF COO@ STY  ZNCH 
PBS? 96 19 RPTEST LDA PARITY TEST PARITY BIT 
FB59 85 40 BITA #840 
FB5B 27 6 BEQ RG IF OK 
FB5D 96 GD RPERR LDA STATUS IF BITHER PARITY OR LRCC, SET 
FB5F 8A 04 ORA #84 THE ‘PARITY’ ERR BIT 

@ ei1o7 op STA STATUS 
FB63 96 10 RO LDA PARITY NOW TEST FOR OVERRUN 
PRES 85 28 BITA #$20 FROM THE USRT 
PRE? 27 6 BEQ -R1G IF NO 
FB69 96 JD LDA «STATUS IF YES, SET THE DATA LATE BIT 
FBEB 8A 40 ORA #840 TO NOVA 
FRED 97 @D STA STATUS 
PREF 7E F8A4 R10 JMP - BCOMM 


* FILE MARK SEEN 
* SET THE STATUS BIT, EXIT 


FB?2. $1 24 RFMK LEAY 1,Y RETURN WCNT OF @ TO NOVA 
FB74 10BF COBO STY ZNCH 

FB78 96 aD LDA STATUS SET STATUS BIT 

FB7A 8A @1 ORA #51 

FB7C 97 @D STA STATUS 

FB7E 96 1¢ LDA TAPDIR WHICH DIRECTION 

FB8S 81 @2 CMPA #2 MAINTAIN THE FSEEN COUNTER 
FB82 26 @4 BNE RFMK2 

FB84 @C 12 INC FSEEN FwD 

FBR6 20 @2 BRA RFMKS 

FB88 OA #2 RFMKe DEC FSEEN REV 

FBSA 7E FBS? RFMKS JMP RPTEST TERMINATES EITHER SPACE OR REA 


= = CORPORATION 


f 


sf 


MTAPE. 


FB8D 
FBOF 
FB91 
FBOS 
FBO5 
FBOS8 
FBOA 
FB9OC 
FBOE 
FBAG 
FBA2 
FBAS 
FBA8& 
FBAA 
FBAD 
FBAF 
FBB1i 
FBBS 
FBB6 
FBB9 
FBBB 
FBBE 
FBCO 
FBC2 
FBC4 
FBC? 
FBC9O 
FBCB 
FBCD 
FBCF 
FBD2 
FBD4 
FBD? 
FBD9 
FBDB 


FBDD 
FBEO 
FBES 
FBES 
FBE? 
FBEA 
FBED 


FBFO 
FBFS 
FBF6 
FBFO 
FBFC 
FBFF 
FCGe 
FC@5 
FC@8 


MS 


86 
oF 
86 
97 
B6 
85 
26 
96 
8A 
97 
7E 
BD 
86 
B7 
96 
84 
97 
B7 
B6 
DE 
FF 
96 
81 
“A 
B7 
33 
86 
97 
86 
BY 
86 
B? 
86 
o7 
97 


BD 
B6 
85 
26 
8E 
BD 
BD 


CC 
FD 
CC 
FD 
CC 
FD 
FD 
FD 
FD 
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WRITE LDA #4 PREAMBLE WDCNT 
WRIT STA COUNT 
LDA #6 POSTAMBLE WDCNT 
STA PSCNT 
LDA ZR240 TEST FOR UNPROTECTED 
BITA #58 
BNE WUNP IF OK 
UNPERR LDA STATUS SET ERROR BIT ONLY 
CURA #580 
Sth" STATUS 
(Le: JMP Beorm™ 
WUN JSR TSTEOT TEST FOR EOT BEFORE MOVING TAP 
LDA #S@A OK, START MOTION, WITH WEN 
STA ZPORTA 
LDA MPORTB SET DMA DIRECTION 
ANDA #SFF-$20 @=OUT OF NOVA 
STA MPORTB 
STA DPORTB 
LDA ZDCHC SET THE DCH COMPLETE FLAG 
LDU NOVADD GET NOVA ADDRESS INTO U 
STU ZNBH SET UP FOR INITIAL DMA CYCLE 
LDA LCOMM LOOK AT COMMAND CODE 
CMPA #COMWF 
BEQ WI IF WRT FILE MK, DONT DO DMA 
STA ZDCHR START DMA CYCLE 
WI@ LEAU 1,U NEXT ADDR 
LDA #522 
STA LRCC START THE LRCC 
LDA #$88+ZREG1 RESET USRT 
STA ZSYNC@ 
LDA #5 0D SET UP SYNC CHAR FOR READ 
STA ZSYNCi AFTER WRITE 
LDA #1 
STA INTRW INTERRUPT ROUTINE WILL HANDLE 
STA WRITOK WRITE-OK FLAG STARTS NONZERO 
* TIME OUT THE IRG- 35 MS NORMAL, 1 SEC IF BOT 
WIZ JSR SHOW KEEP SHOWING STATUS 
LDA ZR24O LOOK AT LPS TO TEST BOT 
BITA #542 
BNE WI@e STAY HERE TILL LPS GOES DOWN 
LDX #35 THEN TIME OUT NORMAL GAP 
wil JSR WAIT 
JSR SHOW SHOW STATUS W/O BOT BIT 


eH 


LDD #$22 

STD POSTAM LRCC, RECORD TYPE 

LDD #SFFO4 SYNC & SINGLE BIT FOLLOWING 
STD POSTAM+2 

LDD #Q 

STD POSTAM+4 

STD POSTAM+6 

STD POSTAM+8 

STD POSTAM+19 


SET UP POSTAMBLE 
IT ALL GOES IN RAM BECAUSE OF LRCC 


SET UP BUFFER POINTERS 


YOU WANT TO CALCULATE THE STARTING ADDRESS SO 
THAT THE LAST WORD OF DATA WILL BE IN THE TOP OF 
THE BUFFER. DIVIDE WDCNT BY 256 SO THE IENT IS 
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FC@B 
FCOD 
FCOE 
FC@F 
FC12 
FC13 
FC15 
FC16 
FC18 
FCiA 
FC1B 
FC1E 
FCiF 
FC20 
FC22 
FC24 
FC27 
FC29 
FCZB 
FC2E 
FC3S1 
FC33 
FC36 


FC38 
FCSA 
FC3D 
FCSF 
FC42 
FC44 
FC47 
FC4A 
FC4D 
FC4F 
FC52 
FC53 
FC56 
FC58 
FCSB 
FC5D 


FC6E 
FC64 
FC67 
FC69 
FC6B 
FC6D 
id] FC72 
FC73 
FC?75 
FC?? 
FC79 
FC7B 
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DC @B 
43 

53 

C3 @201 
SD 

27 @1 
40 

Ke raga 
97 ra) 
5o 

8E E980 
SA 

OA 

oF 24 
30 1E 
8C E8FE 
26 5 
BC 23 
8E EAFE 
cc FF22 
ED 84 
B6 DOLL 
2A FB 
86 @3 
B? DBO 
86 Bi 
B7 D8Gz 
86 C2 
B? DB2S 
CC OOS 
FD D882 
86 1A 
BY DOO1 
4¥F 

B? DOOB 
86 FF 
BY DZS9 
86 A@ 
BY? DOE 
1@8E FD84 
B6 D82e 
85 82 
27 F9 
EC Al 
B7 D8g2 
F? D8¢2 
OA 20 
26 ED 
96 14 
81 32 
1027 8119 
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* THE NO OF PAGES OF 256W, AND THE REMAINDER 
* IS WHERE YOU START THE FIRST DATA WORD. 


* NOTE- ONE MORE WORD IS READ THAN IS WRITTEN- 
* THE FF AND 22 IS WRITTEN AS PART OF THE PREAMBLE 


* BUT IS CHECKED ALONG WITH THE DATA. 
LDD NOVWC 


COMA NEGATE THE WDCNT 

COMB 

ADDD #1 HAVE POSITIVE WDCNT 

TSTB HOW MANY WRITE PAGES 
BEQ Wie IF REMAINDER IS .NE. @, 
INCA THERE IS 1 MORE PAGE IN 


wie STA NPAGW N PAGES TO WRITE 


STA NPAGR 


NEGB LOW ORDER ADDR OF FIRST 


LDX #5 E980 NEED TO GET E900+(LOW ADDR)*2 
ABX 

ABX 

STX TEMPY 

LEAX =eyn GET READ ADDR- 1 WD EARLIER 
CMPX #BUFF-2 DID IT WRAP BELOW BOTTOM? 

BNE WI 

INC NPAGR IF YES, ONE MORE PAGE TO READ 


LDX #BUFF+S1FE FIX UP BUFF ADDR 


WI3 LDD #5FF22 SET UP THE FIRST WD IN THE BUF 
STD @,X READ ADDR STAYS IN X 

wI4 LDA ZPORTB NOW, IS FIRST DMA CYCLE DONE 
BPL wi4 IT BETTER BE 


* SET UP USRT-— ENABLE BOTH XMTR AND RCVR 
LDA #2ZREG1 


STA ZSYNC@ POINT TO CTRL2 REGISTER 

LDA #SB1 SET WD LENGTH, EIE INTRR 

STA ZSYNC1 

LDA #5CQ ENABLE XMT & RCV, POINT TO D 
STA ZSYNC@ 

LDD #O LOAD @@ FOR DATA OUT 

oy i ZSYNC1 

LDA #51A FINALLY, ENABLE. WDE TO DRIVE 
STA ZPORTA 

CLRA 

STA TZACR SETUP TIMER#2 

LDA #259 ABOUT 45.5MS TIMEOUT 

STA T2HOC 

LDA #5AD ENABLE TIMER#2 TO IRQ 


STA ZINTE 
* WRITE LOOP 1-- WRITE PREAMBLE 
* NO READ DATA HERE, IT ISNT READY YET 


LDY #PREAM POINTER 
WLOOP1 LDA ZSYNCS GET USRT STATUS 
BITA #$2 IS TDRA READY 


BEQ WLOOP1 


LDD ltt YES, GET 2 BYTES 


STA ZSYNC1 


STB ZSYNC1 WRITE THEM SEPARATELY 
DEC COUNT COUNT 4 PAIRS 

BNE WLOOP1 

LDA LCOMM WHAT IS COMMAND 


CMPA #COMWF 


LBEQ WRITFN BRANCH HERE ATA 
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ITING FILE MK 
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FC7F 10€ BF ANDCC #$BF ENABLE HARD TAPE ERRS TO FIRQ 
FC81 B6 D822 WLIA LDA ZSYNCO WAIT FOR READY AGAIN 

i) FC84 85 02 BITA #$2 
FC86 27 F9 BEQ WLIA 
FC88 86 ae LDA #522 WRITE FIRST CHAR OF 22 
FC8A B7 D882 STA ZSYNC1 (JUST WRITE 1 CHAR, IS OK) 
FC8D 1098 24 LDY TEMPY SET UP FOR MAIN LOOP 


* WRITE LOOP 2- MAIN WRITE LOOP 

* GETS DATA VIA DMA, WRITES OUT 

* ALSO READS AND CHECKS DATA IF ANY (YET) 

stk Ge POINTER TO STORE XMT DATA INTO RAM 
ie er POINTER TO READ RCV DATA FROM RAM 
Pins: NOVA ADDR, INIT TO SECOND WORD 

= FIRST wD IS ALREADY IN THE REGISTER 
* LRCCs CUMULATIVE LRCC 


FCS@ 86 FF WLPZS LDA #255 435.5MS TIMEOUT 
FC92 B7 DBBO STA T2HOC 
FCOS5 B6 D822 WLOOP2 LDA ZSYNCO (5) GET USRT STATUS 
FC98 85 G2 BITA #$2 2 IS XMT READY 
FCOA 26 6 BNE WLeT 3S YES 
FC9C 85 i BITA #51 IF NOT XMT, IS RCVR READY 
FCOE 26 38 BNE WL2R YES 
FCAS 20 F3 BRA WLOOP2 
* XMIT SIDE- SEND OUT 2 BYTES 

FCA2 FC C206 WLeT LDD ZNDH 6 GET THE WORD 
FCAS FF C882 SLU ZNBH 6 SET UP NEW NOVA ADDR 
FCAS B? CBB9 STA ZDCHR 3 STRT NEW DMA CYCLE 
FCAB 33 41 LEAU a4 S INCREMENT IT 

6) FCAD B? D882 STA ZSYNC1 5 SEND WORD TO USRT 
FCBO F? D8d2 STB ZSYNC1 5 
FCBS ED Al STD gitt id. PUT IN RAM 
FCB5 98 Lt KORA LRCC 4 PUT BOTH BYTES INTO LRCC 
FCB? 97 11 STA LRCC 4 
FCBS D8 iL EORB LRCC 4 
FCBB D? rt STs LRCC 4 
FCBD 108C EBOO TESTW CMPY #BUFTOP 5 DID RAM ADDR RUN OVER 
FCC1 26 ©8 BNE WLOOPR 5 NO, QUIT 
FCC3 OA 22 DEC NPAGW COUNT PAGES 
FCC5 27 o1 BEQ WLOOPE NO MORE- END OF DATA 
FCC? 108E EQOS LDY #BUFF RAM ADDR RAN OVER, RESET IT 

* RECEIVE SIDE- READ 2 BYTES WHEN READY, CHECK 

FCCB B6 D8GO WLOOPR LDA ZSYNCO 5 GET STATUS 
FCCE 85 @1 BITA #$1 2 TEST RCV FIRST 
FCD@ 26 6 BNE WL2R 3 YES 
FCD2 85 2 BITA #$2 IF NO, IS XMTR READY 
FCD4 26 cc BNE WLeT 
FCD6 2@ FS BRA WLOOPR 
FCD8 B6 D8@2 WLerR LDA ZSYNC1 5 GET 2 CHARS FRO USRT 
FCDB F6 D8Ge2 LDB ZSYNC1 5 
FCDE 10A3 81 CMPD shit t 13 TEST AGAINST DATA 
FCE1 27 82 BEQ WLZRR 3 IF OK 
FCES @F £1 CLR WRITOK IF BAD, CLEAR FLAG 
FCES 8C EBOO WL2RR CMPX #BUFTOP 4 IS ADDR OVER THE TOP 

e FCE8 26 A6 BNE WLP2s 3 NO, OK 
FCEA 8E ESSO LDX #BUFF YES, RESET IT 
FCED OA 23 DEC NPAGR COUNT READ PAGES 
FCEF 20 OF BRA WLP2S 


* SET UP FOR LOOP 3 
FCF1 86 FF WILS LDA #255 TIMEOUT 43.5MS oO fm] 
CORPORATION / 
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FCFS 
FCF6 
FCF8 
FCFA 
FCFD 


FD@1 
FDO4 
FD@6 
FDe8 
FDOA 


FD2C 
FDOE 
FD1@ 
FD12 
FD15 
FD1i8 
FDIA 


FDIC 
FDIE 
FD21 
FD23 
FD26 
FD2A 


FD2C 
FD2F 
FDS2 
FDS5 
FD37 
FD39 
FD3C 
FD3E 
FD41 
FD43 


FD45 
FD47 
FD49 
FD4C 
FD4F 
FD5@ 
FD53 
FD55 
FD57 
FD59 
FD5B 
FD5D 
FDSF 
FD62 


MS 


BY? 
22 
96 
B? 
1@8E 


DEE 
1 
24 
G2 
FS 


27 
@C 
Al 
DBO2 
DEBG2 
on 
E5 


OA 
D@O1 
C2 
D826 
E862 
DS 


D8z2 
D882 
81 
2 
a1 
EBOO 
BS 
E9OD 
23 
AC 


4B 
22 
DOSE 
D208 


DOe9 
21 
26 
OD 
@4 
2D 
28 
DOO1 
@9 
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STA 
BRA 
LDA 
STA 
LDY 


WLOOPE 


T2HOC 
WLOOPS 
LRCC 
POSTAM 
#POSTAM 
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PUT LRCC IN RAM 
START POINTER 


* WRITE LOOP 3— WRITE POSTAMBLE 
* READ AND CHECK DATA FROM READ SIDE ALSO 

* (IT MAY NOT HAVE STARTED YET) 

* IF READ DOESNT START WITHIN 43.5MS, OR IF THERE IS 


* 43.5 MS GAP IN READ DATA, STOP, 


WLOOPS LDA 
BITA 
BNE 
BITA 
BEQ 


ZSYNC@ 
#$1 
WL3R 
#$2 
WLOOP3 


CALL IT PARITY ERROR 
IS XMTR READY 
TEST RCVR FIRST 


THEN TEST XMTR 


* XMIT SIDE~ SEND OUT A WORD 
* THIS WONT BE EXECUTED AFTER LAST WORD SENT 


WLOT LDA 
BEQ 
LDD 
STA 
STB 
DEC 
BRA 


PSCNT 
WL3E 
j++ 
ZSYNC1 
ZSYNC1 
PSCNT 
WLOOPS 


IS POISTAMBLE DONE 
YES, SHUT DOWN XMTR HERE 
NO, GET WD, SEND OUT 


* COUNT RAN OUT, TURN OFF WDE, DISABLE XMTR 
* NOTE- HERE, THERE ARF 2 BYTES OF @ STILL TO 
* BE SENT OUT, TO HELL WITHEM 


LDA 
poise 
LDA 
STA 
LDY 
BRA 
* READ SIDE 
WLOR LDA 
LDB 
CMPD 
BEQ 
CLR 
CMPX 
BNE 
LDX 
DEC 
BNE 
* READ ROUTINE 
WBENT ORCC 
LDA 
STA 
STA 
CLRA 
STA 
LDA 
BNE 
LDA 
ORA 
STA 
LDA 
STA 
STU 


WL3E 


WL3RR 


WLSBAD 


WL3K 


#5Q8 
ZPORTA 
#$C2 
ZSYNCO 
#POSTAM 
WLOOP3 


ZSYNC1 
ZSYNC1 
k++ 
WLSRR 
WRITOK 
#BUFTOP 
WIL3 
#BUFF 
NPAGR 
WIL3 
HAS SEEN 
ae 
#S2E 
ZINTE 
T2ZLOL 


T2HOC 
WRITOK 
WL3K 
STATUS 
#54 
STATUS 
#38 
ZPORTA 
NOVADD 


THIS WILL STOP THE STROBES 
DISABLE THE XMTR 


RESET Y, IN CASE MORE SENT 
STAY IN LOOP TILL READ DONE 


GET 2 BYTES, TEST 
THIS IS SAME AS IN WLOOP2 


AFTER READ, RESTART TIMEOUT 
COUNT READ PAGES 
ALL THE DATA- STOP HERE 


DISABLE FIRQ 
DISABLE TIMER#2 FROM IRQ 


FORCE A SHORT TIMEOUT 
ON TIMER#2 SO FLAG CAN BE CLRD 
WAS R.A.W. OK? 


NO, CALL IT A PARITY ERROR 


STOP MOTION, KEEP WEN 


SEND FINAL O NOVA 
CORPORATION 
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FD64 
FD66 
fe FD68 
FD6A 
FD6C 
FD6E 
FD7@ 
FD72 
FD?74 
FD76 
FD78 
FD7A 
FD?C 
FD?7E 
FD81 


FD84 
FD85 
FD86 
FD87 
FD88 
FD89 
FD8A 
FD8B 
FD8C 
FD8D 


FD8E 
FD91 
FD93 
FDS5 


FD98 
FDOB 
FD9D 
FDA 
FDAS 
FDAS 


FDA8 
FDAB 
e FDAD 
FDB1i 
FDB4 
FDB6 
FDB9 
FDBC 
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CC 
DD 
86 
7E 


CC 
ED 
108E 
86 
97 
7E 


B6 
85 
1027 
BD 
86 
B7 
B6 
85 


OB 
BC 
14 
38 
10 
@D 
4 
OA 
Er 
20 
@4 
1 
2D 
DO08 
F8A4 


v4) 
2@ 
BO 
20 
aO 
CB 
@D 
FF 
4 
FF 
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CLR NOVWC FINAL WDCNT IS @ 
CLR NOVWC+1 
LDA LCOMM TEST COMMAND 
CMPA #COMWF IS IT WRITE FILE MARK? 
BNE WEXIT BRANCH AROUND IF NOT 
LDA STATUS IF WFM, SET EOF BIT 
BITA #54 UNLESS THERE WAS AN ERROR 


BNE WEXIT THERE WAS! 
LDB STATUS +1 


BITB #520 
BNE WEXIT THERE WAS! 
ORA #1 


STA STATUS 

WEXIT LDA T2LOL CLEAR TIMER#2 FLAG 
JMP ECOMM DONE 

* THIS IS YOUR BASIC PREAMBLE 


PREAM FCB @ 
FCB g 
FCB @ 
FCB @ 
FCB © 
FCB $C@ 
FCB $0D 
FCB $FF 
FNKE FCB ysl) EXTRA FOR WRT FILE MARK 
FCB $FF 


* WRITE FILE MARK ROUTINE 
THIS ROUTINE USES CODE IN THE WRITE ROUTINE 
DIFFERENCES ARE: 


WRITE 2 MORE BYTES IN PREAMBLE (IS ENTIRE FMK) 


% 
x 
* 
* NO DMA FROM NOVA 

* USE WDCNT OF @— READS + CHECKS 1 wD 
i FIRST WD IS FF55 NOT FF22 

* 

W 


BRANCH OUT AFTER WRITING PREAMBLE, GO TO POSTAMBLE 


START AT POSTAMBLE+3, WRITE 5 WDS NOT 6 
RITFM LDD #@ 


STD NOVWC WORD COUNT 
LDA #5 
JMP WRIT SET PREAMBLE WDCNT AND GO 


* PICK UP HERE AFTER PREAMBLE WRITTEN 
WRITFN LDD #SFF55 
STD 2X 
LDY #POSTAM+3 


LDA #5 WDCNT FOR WRITING 


STA PSCNT 
JMP WLOOPS 


* ERASE ROUTINE 
ERASE LDA ZR2L42 


BITA #58 

LBEQ UNPERR NO, QIUT 

JSR TSTEOT TEST FOR EOT 

LDA #504 START MOTION WITH WEN 


STA ZPORTA 
EBOT LDA ZR24G DONT START TIMIN 
BITA #559 OFF BOT 


CHANGE WD IN RD BUFFER 


TEST FOR UNPROTECTED 


A A CORPORATION L 
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FDBE 26 
FDC® 8E 
FDCS BD 
FDC6 7E 
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FQ 

@15E 
FE74 
FD5D 
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BNE 
LDX 
JSR 
JMP 
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EBOT 
#350 
WAIT 
WL3K 


TIME OUT 352 MS 


EXIT SAME AS WRITE ROUTINE 


ATA 


Cc 
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FDC9 
FDCB 
FDCE 
FDDS 
FDD3 
FDDS 


FDD8 
FDDA 
FDDD 
FDDF 
FDE2 
FDES 
FDES 
FDES8 
FDEB 


FDED 
FDEF 
FDF2 
FDF4 
FDF? 
FDFS 
FDFC 
FDFE 
FE@1 
FEOS 
FE6 
FE@8 
FESB 


FEOC 
FEOF 


FE11 
FE14 
FE16 


MS 


86 
BY” 
86 
B? 
4F 
oF 
B? 
BY? 
97 


86 
B7 
86 
B? 
86 
B7 
86 
Bre 
86 
B7 
86 
Bir 
39 


FC 
DD 


B6 
84 
81 


CBB2 
@9 


C825 
38 
18 
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* SUBROUTINES 


* SELUZ-- SUBROUTINE TO INITIALIZE THE ENTIRE SYSTEM 
* SELECTS UNIT @, TRACK @, INIT THE USRT AND 6522 


SELUS LDA 
STA 
LDA 
STA 
LDA 
STA 


HeHHRH HHS 


LDA 
STA 
LDA 
STA 
CLRA 
STA 
STA 
STA 
STA 


* INITIALIZE THE USRT REGISTERS 
* THERE ARE 4 OUTPUT REGISTERS ON CODE 1- TO SELECT WHICH 
* ONE IS USED, SET THE “AC” BITS WHEN WRITING CTRL REG 2 


ZREGI1 EQU 
ZREGZ EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


HER Ht 


SHOWB LDD 
STD 

* 

SHOW LDA 
ANDA 
CMPA 
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#S5BF 
ZDIRA 
#50 
ZDIRB 
#551 
ZCTRL 


#$98 
ZINTE 
#580 
ZPORTA 


MPORTB 
DPORTB 
ZPORTA 
BSYSET 


%11 


%4OZ110L2 
#580+ZREG1 


ZSYNC@ 
#570 
ZSYNC1 


#540+ZREG1 


ZSYNC@ 
#%0010 
ZSYNC1 


#50+ZREG 


ZSYNCS 
#ZREG2 
ZSYNC1 


SHOW-- SUBROUTINE TO COMPUTE THE DIA STATUS WORD 

CALL THIS SUBROUTINE REPEATEDLY TO MAINTAIN THE STATUS 
SO IT WILL BE VALID ANY TIME NOVA LOOKS AT IT 

ENTER AT SHOWB WHEN IDLE- READS ADDR FROM DOB REGISTER 


ZN BA 
NOVADD 


ZNAL 
#$38 
#310 
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GET COMMAND REG 
MASK COMMAND BIT 
CHECK FOR ILLEG 


ALL OUTPUTS EXC. BIT 6 
DIRECTION REG FOR PORT A 


PORT B ~- ALL INPUTS 
6522 PERIPH CONTROL REG: 
CBi="BUSY” (FROM FCL) 
INT ON POS EDGE 
CB2="CLEAR (FROM ECL) 
INT ON POS EDGE 
CA1=27? 
NO INT. FLAG ON NEG EDGE 
CAZ=SYNCH MATCH 
NO INT. FLAG ON POS EDGE 


SET UP PORT A 
SELECT GATE ON -— OTHERS OFF 


SELECT TRACK 1, DRV @, DATA CH 
GATE THE UNIT SELECT ON 
INITIALIZE BUSY TO @ 


NORMAL CONTENTS OF CTRL REG 
NORMAL CONTENTS OF CTRL REG 2 
POINT TO SYNC CHAR REG 
ALSO DISABLE INTRR, RESET T & 
SET SYNC CHAR 
POINT TO CTRLS REGISTER 
SET FOR 1 SYNC, INTERNAL SYNC 
POINT TO CTRL 2 REG 
SET FOR NO EIE, NO TX SYNC, 8BI 


EVEN PAR, 2BYTE XFR, DTR USED 
DONE 


COPY DOB CONTENTS TO MEMORY 
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FE18 
FELA 
FEID 
FE2@ 
FE23 
FE26 
FE28 
FE2A 


FE2D 
FE2F 
FES1 
FES4 
FES6 
FES8 
FESA 
FESC 
FRESE 
FE49 
FE42 
FE44 
FE46 
FE49 
FE4B 
FE4D 
FE4F 
FES2 
FES4 
FES6 
FE58 
FESA 
FESC 
FESE 
FEE@ 
FE62 
FE6E4 
FE66 


FE66 
FE68 
FEGA 
FE6C 
FE6E 
FEO 
FE7S 


FE?4 
FE76 
FE?? 
FE78 
FE7A 
FE7C 
FEF 
FE81 


MS 


26 
FC 
FD 
FC 
FD 
20 
DC 
FD 
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OE BNE SHO NOT - DONT ECHO 
C282 LDD ZNBH YES ECHO B AND C REGISTER 
Cee2 STD ZNBH 
C222 LDD ZNCH ECHO C REGISTER 
CO22 STD ZNCH 
@5 BRA SHA 
a9 SH2 LDD NOVADD COPY MEM ADDRESS TO DIB REGIST 
Cae2 STD ZNBH 
* BUILD THE STATUS WORD— RIGHT HALF FIRST 
* GET NON LATCHED BITS FROM THE INPUTS FROM DRIVE 
* GET LATCHED BITS FROM “STATUS” LATCH 
* THIS ROUTINE SETS UP RDY, BOT, WRT LOCK, AND REW. 
GE SHA LDB STATUS+1 GET LATCHED BITS (LOW HALF) 
62 ANDB #LACHL ZAP OUT OTHERS 
C29 LDA ZR24@ READ THE INPUTS 
8e BITA #$82 TEST RDY 
17 BEQ SH2 
@1 ORB #$1 IF ON, ADD BIT @ TO REG. B 
40 BITA #540 IF READY TEST BOT BIT 
28 BEQ SH1 
OF LDA MPORTB MUST ALSO BE TRACK @ 
3 BITA #3 TO GET BOT INDICATION 
G2 BNE SH1 LF NOT 1.0 
Be ORB #586 ADD BOT TO NOVA REG 
C@29 8=SH1 LDA ZR248 RELOAD A 
gg BITA #$8 IF READY, ALSO TEST WRITE LOC 
G2 BNE SH2 IF BIT IS ON, IS UNPROTECTE 
G4 ORB #54 
C@25 SH2 STB ZNAL OK, STORE IN LOW HALF OF eh 
22 ANDB #ERRBL TEST THE BITS THAT CAUSE ERR FL 
17 STB ERRBIT SAVE TEMPORARILY 
@D LDB STATUS NOW BUILD UPPER BYTE OF STATUS 
DF ANDB #LACHH EXTRACT LATCHED BITS 
G2 SH3 BITA #82 TEST FWD, REV AND BUSY TO GET 
%8 BEQ SH5 IF NOT BUSY, IS NOT REWINDI 
14 =LD LCOMM WHAT WAS THE LAST COMMAND 
%8 CMPA #$8 IF REW, THEN SET REW STATUS 
G2 BNE SH5 
2e “ORB #520 IS REWINDING, SET STATUS BIT 
@200 SH5 RMB Qo 
* NOW FIND OUT WHETHER ERROR BIT (MSB) SHOULD BE ON 
98 TFR B,A 
57 ANDA  #ERRBH THESE BITS CAUSE ERR IN UPPER HA 
Ly ORA ERRBIT THESE CAUSE ERR IN LOWER HALF 
e2 BEQ SH4 
82 ORB #586 IF ANY ARE ON, SET IT 
C224 SH4 STB ZNAH OK, SEND IT TO NOVA 
RTS 
* 
* WAIT-- SUBROUTINE TO WAIT N MSEC. ENTER WITH N IN X. 
D? WAIT LDA #215 LOOP TO WAIT 1 MS 
WAITL DECA [2] LOOP TO WAIT 5 USEC 
NOP [2] 
FC BNE WALT [3] 
iF LEAX —1,X 
2OB2 CMPX #0 DECR X AND TEST IF 2 
F3 BNE WAIT 
RTS 
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FE82 
FE84 
FE86 
FE88 
FESB 
FE8D 
FESF 
FEQ1 
FESS 
FEROS 


FE9? 
FEOO 
FEQOB 
FEOD 
FEOF 


FEA2 
FEA4 
FEA6 
FEA? 
FEAQ 
FEAC 
FEAF 
FEB2 
FEB4 
FEB6 


FEB? 
FEBA 
FEBC 
FEBE 
FECO 
FEC2 
FEC4 
FEC6 
FEC8 
FECA 
FECC 
FECE 
FEDS 
FED2 
FEDS 
FED5 
FED8 
FEDA 
FEDD 
FEEO 
FEE2 
FEER4 
FEE6 


MS 
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* SUBROUTINE TO TEST FOR EOT (BEFORE GOING FORWARD) 
* REWINDS AND GOES TO NEXT TRACK IF NECESSARY 

* GOES DIRECATLY TO ECOMM IF LAST TRACK 

* IF REV DIRECTION, GOFS BACK A TRACK, FAST FwDS 

* TO END OF TRACK 


TSTEOT LDA TAPDIR WHICH DIREC 
CMPA #82 FWD? 
BNE REVEOT NO, SKIP 
LDA ZR240 TEST EwsS 
RITA #620 
BEQ RNOTE IF OFF, OK 
LDA MPORTB IF ON, TEST TRACK# 
ANDA #83 
CMPA #83 TEST FOR TRACK 4 
BNE RNOT4 IF NOT 4, REWIND & RETRY 
* TRACK 4 NOW- RETURN EOT STATUS TO NOVA 
LDA #2 


BADEOT ORA STATUS 
STA STATUS 
PULS D DUMP THE STACK BEFORE LEAVI 
JMP ECOMM 

* NOT TRACK 4— REWIND 

RNOT4 BSR ESTOP STOP THE TAPE 
LDB MPORTB SET UP NEW TRACK # 
INCB NEXT TRACK 
STB MPORTB 
STB DPORTB 
JSR REWI START MOTION 


RS LDA ZR24L WAIT TILL BUSY GOES DOWN 
BITA #$2 
BNE RS 
RNOTE RTS 
REVEOT LDA 2ZR240 TEST PHYSICAL BOT 
BITA #550 LOOK FOR LPS OR FLG 
BEQ RNOTE IF NOT, RETURN OK 
LDA MPORTB IS BOT, TEST TRACK# 
BITA #53 
BNE RNOTZ IF NOT ZERO 
LDA #580 IF ZERO, RETURN ERROR 
ORA STATUS+1 BIT 7 IN LOWER BYTE IS BOT 
STA STATUS+1 


LDA #599 SET ERR FLAG AND ILLEG 
BRA BADEOT 

RNOTZ BSR ESTOP STOP MOTION 
LDA MPORTB GET TRACK # 


DECA REDUCE IT BY 1 
STA MPORTB 
STA DPORTB SET TRK# IN DRIVE 
LDA #506 FAST & FORWARD BITS 
STA ZPORTA START MOTION 
WEWS LDA ZR24B WAIT FOR EWS (END-OF-TRACK) 
BITA #520 
BEQ WEWS 
BSR ESTOP STOP MOTION 
RTS 
* ROUTINE STOPS TAPE MOTION, WAITS UNTIL DRIVE 
* ITS READY, CLEARS WRITE ENABLE, WAITS 2 MS 


* AND RETURNS. 
A a CORPORATION 
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FEE? 
FEEA 
FEEC 
FEEF 
FEF2 
FEF4 
FEY6 
FEFQ 
FEFC 
FEFF 


FFOO 
FF@2 
FFO4 


FFO8 
FFOB 
FFOD 
FFOF 
FF11 
FF13 
FF15 
FFI? 
FFIA 
FFIC 
FFIF 
FF21 
FF23 
FF26 
FF28 
FF2A 
FF2C 
FF2F 
FPSO 
FESS 
FFS5 
FF38 
FFSA 


MS 


B6 
84 
B? 
B6 
85 
26 
TF 
8E 
BD 
39 


ESTOP LDA 


ESTOP2 LDA 


ZPORTA 
#SFC 
ZPORTA 
ZR240 
#502 
ESTOP2 
ZPORTA 
#2 
WAIT 
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ZERO THE MOTION BITS 


WAIT FOR BUSY BIT IN 
DRIVE TO GO LOW. 


TURN OFF WEN (IT MAY OR 
MAY NOT HAVE BEEN ON) 

2MS DELAY BEFORE TRACK 
CHANGE ALLOWED 


* INTERRUPT ROUTINE (FOR FIRQ INTERRUPT) 
* HAS DIFFERENT MODES FOR READ & WRITE 


STACK A,B 
WHICH MODE WE IN 
IF READ 


* THE WRITE INTERRUPT ROUTINE GOES HERE 


FIRQ PSHS D 
LDA INTRW 
LBEQ FIRQR 
LDA ZSYNC@ 
ANDA #50 
BEQ PERR 
LDA STATUS +1 
ORA #520 
STA STATUS+1 
LDA #583 
STA ZSYNCO 
LDA #$31 
STA ZSYNC1 
LEAS Diya 
ANDCC #$EF 
LBRA WBENT 

PERR LDA STATUS 
ORA #54 
STA STATUS 
LDA ZSYNC1 
CLRA 
STA ZSYNCO 

FIRQX LDA #531 
STA ZSYNC1 
PULS D 
RTI 


GET ERROR STATUS 
IF DAD OR CTS WENT DOWN - 
ITS A BAD TAPE, ELSE PARITY 
BAD TAPE - SET STATUS BIT 


RESET THE USRT 
DISABLE EIE 


CLEAN STACK 
ENABLE IRQ 
GO ABORT WRITE 
COULD BE RCV OVFL, XMT UNDRFL 
OR PARITY 
CALL IT PARITY ERROR. 


NO POINT ALLOWING FURTHE 


FIRQ’S ON THIS WRITE, SO 
DISABLE EIFE 
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* TEST PROGRAMS 

* THESE ARE DESIGNED FOR USE DURING THE CHECKOUT PHASE 
* * IN ADDITION TO THESE PROGRAMS, THE “READ, “REW’, 

* AND OTHER COMMAND ROUTINES MAY BE ENTERED AS 

* TEST PROGRAMS IF “SELU@”’ HAS BEEN CALLED AND THE 

* STACK HAS BEEN INITIALIZED TO SEBFF. 

* SET UP NOVCOM, NOVADD, NOVWC REFORE ENTERING. 


* PROGRAM TO INITIALIZE EVERYTHING, USING SELUG 
* THIS SHOULD BE CALLED BEFORE ANY OF THE OTHER TEST PROGS 


FFSB 86 E8 FIRST LDA #$E8 SET UP DP REGISTER 
FFSD 1F 8B TFR A,DP 

FFSF BD FDC9 JSR SELUO 

FF42 75 F8A4 IMP ECOMM 


* PROGRAM TO READ A WORD FROM NOVA VIA DMA 
* XX: ADDRESS IN NOVA [E80] 
* YY: CONTENTS WILL BE RETURNED HERE [E8@2] 


FF45 86 2D READWD LDA #9 SET DIRECTION- NOVA OUT 
FF47 BY? C888 STA DPORTB 
FF4A DC @@ LDD XX SET UP MEM ADDR 
FF4C FD <CO82 STD ZN BH 
FF4F B7 C829 STA ZDCHR ASK FOR CYCLE 
FY52236 DOE RWAIT LDA ZPORTB WAIT FOR DONE 
FFSS.2A FB BPL RWAIT BIT 7 MUST GO HIGH 
FFS?7 FC C226 LbD ZNDH GET RESULT 
FF5SA DD @2 STD To 
a FF5C 75 FF5C HERE JMP HERE DONE 


* PROGRAM TO WRITE A WORD INTO NOVA MEMORY 
* XX: ADDRESS IN NOVA 
* YY: THE WORD TO WRITE 


FFSF 86 20 WRITWD LDA #520 SET DIRECTION- INTO NOVA 
FY61 B? C208 STA DPORTB 

FRE4 DC “i LDD XX SET UP ADDRESS 

FFE6 FD CQe2 STD Z2NBH 

FF69 DC G2 LDD Te CONTENTS 

FF6B FD COZ6 STD ZNDE 

FY6E B87 C299 STA ZDCHR ASK FOR CYCLE 

FF71 B6 DOLL WWAIT LDA ZPORTB 

FF?4 2A FB BPL WWAIT 

FFV6 7E FF5SC JMP HERE 


* INTERRUPT ROUTINES 


FF?9 7E FF79 HSwi JMP HSWI SWI 

FF7C 65 OF FCFCDEBUG JMP ($F? FC] NMI- TO DEBUGGER 
FFF6 ORG $FFF6 

FY¥6 FFOO FDB FIRQ FIRQ 

FFF8 FASE FDB HIRQ TRQ 

FFFA FF79 FDB HSWI SWI 

® FFFC FF7C FDB DEBUG NMI 
FFFE FES FDB INIT INITIAL START 
END 

NUMBER OF SOURCE LINES = 1321 


TOTAL ERRORS = @ TOTAL WARNINGS = @ A A 
N CORPORATION / 
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OPT 

MACR 
ANDCC 
ENDM 
MACR 
ORCC 
ENDM 
MACR 
ANDCC 
ENDM 
MACR 
ORCC 
ENDM 
MACR 
LEAX 
ENDM 
MACR 
LEAX 
ENDM 
INS MACR 
LEAS 
ENDM 
MACR 
TFR 

ENDM 
MACR 
TFR 

ENDM 
MACR 
LEAS 
ENDM 
MACR 
PSHS B 
CMPA 
ENDM 
MACR 
ASLB 
ROLA 
ENDM 


MC ,MEX,G 
CLC 
#SFE 


SEC 
#91 


Chl 
#3 EF 


SEI 
#512 
INX 


DEX 


TSX 


TXS 


DES 


CBA 


ASLD 


NAM DEBOS l2 £151 


DEDEDE HE a a He eae ak oak Be eae a a a a ea ae ae ae ae aR a ae a a ak AREA aK aR aK a BE a aca aa as ae 32 
* 
= COMPUTER IMAGE RPU DEBUGGER 


oe 
x 
x 6889 DEBUGGER * 
* % 
* 


BEE HE HK SEC Be NE OE IE IE DHE CTH 9K DiC IEE IC BCDC I AK AC IC BC KC Ie BC IEC Ie OH OC ake DIC AKC 9 iC AC OK KC DIC ae DK 2 Ye aE OK AK 


ORG $ F830 


= DEBUGGER PAGE ZERO REGISTERS 


SERIAL INPUT CHAR. 
TIMER 
16% 


RMB BS 
RMB 1 
RMB rs 


ARS RM 3 


PeARITH PSEUDO RE 
RUMP PSAUROU RE 


( 
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E836 
ESSE 
E83F 
£841 
£843 
£845 
£847 
E&48 
F849 
E84B 
E84C 
E84D 
ES4F 
E851 
E852 
£853 
E854 
E855 
E857 


@228 
OO01 
GOS2 
OBG2 
@Q02 
@OB2 
OOO1 
OOG1 
O82 
QOS1 
COO1 
2082 
@B82 
2001 
0001 
@001 
O2O61 
0902 
8062 
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CHRBUF RMB 
BRKSAV RMB 
STKPTR RMB 
BRKADR RMB 
TMP RMB 
TMP1 RMB 
TMPF RMB 
TMPC RMB 
PCVAL RMB 
NUMDIG RMB 
LZFLG RMB 
BEGADR RMB 
ENDADR RMB 
CHR2 RMB 
UNITN RMB 
CKSM RMB 
BYTCT RMB 
FINTA RMB 
INTA RMB 


NNRFPPRPRPNNFRPNPRPRPNNMNNE WO 
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PIR. TO: TEXT START 
TEMP SAVE FOR BRKPOIN 
STACK POINTER SAVE AR 
ADDR. OF BREAKPOINT. 


TEMP FOR MEM TEST 
RPU TEMP 


NUMBER OF DIGITS TO 0 
LEADING ZERO FLAG 
MEMORY TEST BEG ADR 
MEMORY TEST END ADR 
SERIAL INPUT CHAR FOR 
RAM LOAD UNIT (@=TERM 
RAM LOAD CHECKSUM 

RAM LOAD BYTECOUNT 
FAST INTERRUPT VECTOR 
IRQ INTERRUPT VECTOR 


f 


MIDEB.MS 


FLOOD 


FLOO 
FOG2 
FOS 
FQO7 
FOOA 
F@OC 


FOOD 
FOIL 


86 
BY 
86 
B? 
OF 
39 


65 
6E 
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8298 ACIADR EQU $8082 

8901 ACIASR EQU ACIADR+1 
8862 ACIACD EQU ACIADR+2 
8823 ACIACR EQU ACIADR+3 


* 
* CHARACTER CONSTANTS 
oe 
9008 BS EQU = $88 BACKSPACE 
907F DEL EQU  $7F DELETE 
* 
* INITIAL STACK POINTER LOCATION 
te 
BCO@ STKINI EQU $ECOO 
ORG  $Foee 
9958 SETDP $58 
x INITIALIZATION ROUTINES 
a9 RESTRT LDA  #%00001001 ENABLE ACIA RECV INTERRUPTS 
8002 STA ACIACD 
1C LDA = #$1€ SET ACIA 4800 BAUD - 
8003 STA ACIACR & 1 STOP BIT (NO PARITY) 
30 CLR CHAR CLEAR SERIAL CHAR 
RTS 


ve 
* IRQ & FIRQ INTERRUPT HANDLING. 


* SET INTA AND/OR FINTA TO POINT TO YOUR INTERRUPT HANDLERS 


* 
OF ES5S7IRQIA JMP CINTA] 
OF ES55FIRQA JMP [FINTA] 


ATA CORPORATION 68@9 ASSEMBLER 
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ACIA2 DEFINITIONS / INITIALIZATION / INTERRUPT HANDLER 


ACIA2 IS AN ALTERNATE SERIAL PORT FOR LOADING PROGRAMS 
OR DATA INTO RAM 


ACIA2 REGISTER DEFINITIONS 


HEHEHE 


8606 ACI2DR EQU $8022 

BOO1 ACI2SR EQU ACTI2DR+1 

8882 ACI2CD EQU ACI2DR+2 

8083 ACI2ZCR EQU ACTI2DR+3 
* 


* INITIALIZATION ROUTINE FOR ACIAc 
* 


FO15 86 99 UN2ZINI LDA #%00001001 ENABLE RECV INTERRUPTS (ON C 
FO17 B? ©8802 STA ACI2CD 
FO1A 86 1C LDA = #$1€ SET ACIA2 TO 4802 BAUD 
FO1C B? ©8203 STA ACIZCR 
FOIF OF 51 CLR  CHR2 CLEAR ACIA2’S CHAR BUFFE 
CLI CLEAR INTERRUPT 
FO21 10 EF ANDCC #$EF 
FO23 39 RTS 
oe 
* ACIA2 INTERRUPT HANDLER 
se 
F024 B6 8000 ACIZIN LDA  ACI2DR INPUT THE CHAR 
FO27 97 51 STA  CHR2 PUT IT IN ACIA2’S CHAR B 
@ i529 32 RTI 


F@2A 
F@2C 
FO2ZE 
FO3O 
FOS2 


FQ33 
FO36 
F@38 
FOSA 
FO3D 
FOSF 
FO49 
FO45 


F@45 
F247 
FO4A 
FO4C 
FO4E 
F251 
FQ53 
F@55 
F@57 


FQ59 
FOSB 


F@S5C 
FOSF 
FQ61 
FO63 
F@65 
FO67 
F269 
F@6B 
F@ED 
FO6F 
FO7? 
FO7S 
POTS 
FO?? 


96 
ae 
84 
OF 
39 


BE 
85 
Z26 
B6 
97 
3B 
B6 
20 


34 
F6 
C5 
27 
B7 
81 
26 
86 
22 


35 
359 


8E 
8D 
81 
27 
A? 
81 
2% 
81 
26 
39 
8C 
22 
86 
&D 


FC 
7F 


E836 
C9 
7F 
OB 
8 
OD 
O4 
ue 
OE 


E836 
EA 
8 
cc 
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BE HE Be BE ee 2 BK afc Bie BRIE DNC ac he 2c ak ae ois ie a ale i aie af ie ac a ae ak a a ae aie Oe aK a aie ie ake 


ok 
oe 
oe 


6809 DEBUGGER ROUTINE 
APPROX 96% BYTES 


* 
Py 
x 


HE Oe OE KC aE 2c Ae ak ik ac ake OIC aEC kc DE 2K ak ac aie ae cake Oe 2 ah ie a AK OC OC OK 2 ac OK OK a oie 3 a aie 


oe 
# 


GETCHR 


* 


SERINI 


BREAKF 


PUTCHR 
PUTCH1 


PUTCHX 


* 


EDITOR 
EDIT1 


EDITX 
DELETE 


HERE ARE THE SERIAL I/O ROUTINES FOR THE 6829 
INTERNAL ACIA 


LDA 
BEQ 
ANDA 
CLR 
RTS 


ACIA 


LDA 
BITA 
BNE 
LDA 
STA 
RTI 
LDA 
BRA 


PSHS 
LDB 
BITB 
BEQ 
STA 
CMPA 
BNE 
LDA 
BRA 


PULS 
RTS 


CHAR 
GETCHR 
#5°F 
CHAR 


IN INTERRUPT 


ACIASR 
#502 
BREAKF 
ACIADR 
CHAR 


ACIADR 
BKENTR 


B,A 
ACIASR 
#510 
PUTCH1 
ACIADR 
#5D 
PUTCHX 
#54 
PUTCH1 


A 58 


GET RECIEVED CHARACTER 
NOT READY 
MASK OFF PARITY BIT 


GET STATUS 

CHECK FOR BREAK CHAR 
GO BREAK 
GET CHAR 

SAVE IT 


CLEAR INT 


GET STATUS REG 
CK IF XMIT BUFFER EMPTY 


OUTPUT THE CHARACTER 


INPUT A CHARACTER STRING TERMINATED W/ A C.R. OR E 


LDX 
BSR 
CMPA 
BEQ 
STA 
CMPA 
BEQ 
CMPA 
BNE 
RTS 
CMPX 
BEQ 
LDA 
BSR 


#CERBUF 
GETCHR 
#DEL 
DELETE 
@,X+ 
#ép 
EDITX 
#513 
EDIT2 


#CHRBUF 
BDIT1 
#BS 
PUTCHR 


GET CHAR BUFFER ADDRESS 
GET A KBD CHAR 
COMPARE TO DELETE 


PUT IT IN THE BUFFER 
CK FOR A C.R. 


CK FOR AN “ESC” CHAR 
GO ON TO NEXT 


DONT BACKUP TOO FAR 
TOO FAR 
BACKS PACE 


AlA CORPORATION / 
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FO79 38 
FO7B 20 


FO7D 8D 
FO7F 20 


12/10/81 


1F 
Fe 


C6 
DE 


EDIT2 
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DEX 
LEAX 
BRA 


BSR 
BRA 


BACKUP 
EDIT1 


PUTCHR 
EDIT1 
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POINTER 


GO OUTPUT THE CHARACTER 


MIDEB. 


F281 
FO83 
F@85 
FQ87 
F@89 
FO8B 
F@8D 
FOSF 
F@O1 
FO93 


FO94 
FO96 


F98 
FOOA 


FQOC 
FOOE 
FOA® 


FOA2 
FOA4 
F@A6 
FOA8 
FOAA 


FQOAB 
FOAD 
FOAF 
FOB1 


FO BS 
FOBS 
F@B8 


MS 
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* 


PRTEXT 


PCHR 
EXITXT 


SPA 


CRLF 


ERROR 
ERROR1 


INPCHR 
INPCH1 


INPCX 


NEWLIN 
NEWLN1 


Ro 


INPNUM 
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OUTPUT DEBUG TEXT STRING TO ACIA 


LDA @  X+ LOAD ACCA WITH CHAR 
BEQ = EXITXT 

CMPA #” CHECK FOR END CHARACTER 
BEQ EXITXT 

CMPA #°@ TEST FOR SIMULATE C.R. 
BNE  PCHR 

LDA = #3 YES GET C.R. 

BSR _ PUTCHR PRINT CHARACTER 

BRA - PRTEXT BRA TO DO NEXT CHARACTER 
RTS 

LDA o#” PRINT ONE SPACE 

BRA  PUTCHR 


LDA #$D PRINT A C.R. 
BRA PUTCHR 


BSR SPA DO A SPACE 
LDA t= DO A. “2° 
BRA PUTCHR 


BSR GETCHR 


CMPA #$1B CK FOR ESC CHAR 

BEQ INPCX IF SO, DON’T PRINT IT 

BSR PUTCHR 

RTS 

LDA #$@D LOADS A CARRIAGE RETURN 
BSR PUTCHR 

LDA ae LOADS A PROMPT CHARACTEI 


BRA PUTCHR 


INPUT 16 BIT NUMBER INTO THE A:B REGISTER 


BSR EDITOR INPUTS A STRING OF DIGITS 
LDX #CHRBUF LOADS ADDR OF FIRST DIGIT 


LBRA ASCBIN CONVERTS TO BINARY # IN A? 


V 


MTDEB. 


FOBB 
FOBE 
FCO 
FOCS 
FOCS 
FOC8 


FOCA 
FOCC 
FOCE 
FOD1 
FODS 
FODS 
FOD8 


FODA 
F2DC 


FODE 
FOES 
FOE2 
FOE4 


FOE5 
FOE? 
FOE 
FOEA 
FOEC 
FOEE 
FOFO 
FQOF2 
FOF4 
FOF? 
F@FO 
FOFA 
FOFC 


FOFD 
FOFF 
F101 
F183 


F104 
F186 
F1@9 


F1IGA 
F18C 
Fi@E 
F1il1d 
Fit2 
F114 
F116 


MS 
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* BREAKPOINT ENTRY USED BY SwI 

BKENTR STS STKPTR SAVE STACK POINTER 
LDD 10,5 LOADS RETURN ADDRESS 
SUBD #1 SUB 1 FROM RETURN ADDR 
STD 18,5 RESTORES RETURN ADDRESS 


LDX #RGTEXT 
BSR PRTEXT 
TSX 

TFR S,X 

BSR PRTREG 


BLOOP LDA ACTASR 
BITA #504 
BEQ GORUG 
LDA ACIADR 
BRA BLOOP 

GOBUG CLI 
ANDCC #$5EF 
BRA DEBUG 

CVBIN LDB © ,X+ 
BSR CVBIN1 
BSR SPA 
RTS 

CVBINi LDA #8 

BINEXT STA TMP 1 
ASLB 


STB TMPL+1 
BCS PRINT 
LDA #°D 
BRA PRTBIN 
PRINTi LDA #°1 


PRTBIN LBSR  PUTCHR 
LDD = TMP1 
DECA 
BNE BINEXT 
RTS 

OUT4HX BSR  OUT2CH 

OUT2HX BSR OUT2CH 
BSR SPA 
RTS 

OUT2CH LDA  @,X+ 
LBSR  PNTBYT 
RTS 

xe 

* PRINT REGISTER CONTENTS 

Ld 

PRTREG BSR CVBIN 


BSR OUT2HX 
BSR OUTZHX 
BSR OUT2ZHX 
BSR OUT4HX 
BSR OUT4HX 
BSR OUT4 HX 


ATA CORPORATION 6829 ASSEMBLER 


PRINT REGISTER HEADINGS 


PRINT REGISTER VALUES 

CECK FOR BREAK - 
STILL IN PROGRESS 

WAIT 

CLEAR INT 


GET C.C. REG DATA 
CONVERT TO BINARY 
PRINT A SPACE 


GET COUNTDOWN VALUE 


GET BINARY DIGIT 
SAVE REMAINDER OF DATA 


JUMP TO PRINT @ OR 1 


BRA TO CONVERT C.C. REG 
PRINT ACC A 
PRINT ACC B 
PRINT DP 
PRINT X INDEX REG 
PRINT Y_INDEX REG 
PRINT U, PrEe 
CORPORATION 


a 


so 


MTDEB.MS 


F118 8D 
FilA 8E 
F11D 8D 
FL1F 39 
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ES 
E83F 
DE 


14: 3:56 


BSR 
LDX 
BSR 
RTS 
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OUT4HX 
#STKPTR 
OUT4HX 


PRINT PROGRAM COUNTER 
PRINT STACK POINTER 


¢ 


( 


MTDEB.MS” 


F120 


F122 
F124 
F127 
Fiza 
F12c 
F12E 
F131 
F133 
F135 


F137 
F13A 


F13C 
F13D 
F1i3F 
F140 
Fi4e 
F1i43 
F145 
F146 
F148 
F149 
F148 
F14C 
F14k 
F14F 
F151 
F152 
F154 
FLSS 
F157 
F158 
F15A 
F1i5B 
F15D 
F15E 
F160 
F161 
F163 
F164 
F166 
F167 
F169 
F16A 
F1i6C 
Fié6D 


352 


8D 
LZ 
8E 
Al 
27 
8C 
ar 
32 
20 


AD 
20 
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Hie Be Be OK i 2c 2c ae a aK a aa 2 aft ae afc 9 aie fc ai 2c 2K 2K aie 2K ac aie ie aK ik 9k oc i akc 9k aK aK 2K 9K 2c 


* * 
* ACTUAL DEBUGGER PROGRAM a 
* * 


HERE KE HE BE HE DE BE CE DE HEE BE HE BE DC DC I OE BI IC IC DIC IK IC 3 BC DE OE OE 3 ale ae BK ae ae ae ake 3k 


POPLIN LEAS 2,5 CLEANS UP STACK FOR DIS 
* OF GR. S 

DEBUG BSR NEWLIN PRINTS "C.R.>” 

DEBUG1 LBSR  INPCHR READS IN COMMAND 

DEB11 LDX #DEBTBL GET DEBUG COMMAND TABLE 
DEBUG2 CMPA  2®,X 


BEQ DEBGO GO IF A MATCH IS FOUND 
CMPX #DEBTX CK FOR END OF TABLE 

BEQ DEBGO BRA IF A MATCH 

LEAX 3,X 

BRA DEBUG2 GO BACK FOR NEXT MATCH 


DEBGO JSR te JUMP TO THE SUBROUTINE 


BRA DEBUG 


DEBTBL FCB “ae OPEN CURRENT LOCATION 
FDB OPNCUR 
FCB “Cc CLEAR BREAK 
FDB CLRBRK 
FCB ‘ CHANGE MEMORY CONTENT 


FDB CHANGE 

FCB + OPEN NEXT LOCATION 

FDB OPNNXT 

FCB ‘= OPEN PREVIOUS LOCATION 
FDB OPNPRE 

FCB 3B SET A BREAK POINT 

FDB BRKSET 

FCB °E EXECUTE (SET REG VALS 
FDB EXESBR 

FCB °G JUMP TO OPENED LOCATION 
FDB GOLOCN 

FCB “J JSR TO OPENED LOCATION 
FDB JMPLCN 

FCB “0 OPEN A LOCATION 

FDB OPNLOC 

FCB “R RETURN FROM INTERUPT 
FDB RTFINT 

FCB “Ss OPEN CURRENT STACK POIN 
FDB OPNSTK 

FCB SiS SET STACK POINTER TO OP 
FDB SETSTK 

FCB “mM MEMORY TEST 

FDB MEMTST 

FCB aE PRINT REGISTER VALUES 
FDB PREGS 

FCB ° LOAD PROGRAM/DATA INTO 
FDB LODRAM 

FCB “E HELP: PRINT DEB COMMAND 


FDB HELP r 1a 
ey a CORPORATION 
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/ 


F16F 
F170 
F172 
F173 


FCB 
FDB 
FCB 
FDB 


an 
EXITD 
$D 
NEWLN1 


EXIT DEBUGGER 
C.R. TERMINATOR 


ATA CORPORATION | 


a 
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8 F175 1B FCB $1B ESC TERMINATOR 

F176 FOAB FDB NEWLIN 
F178 Qe DEBTX FCB g 
F179 F1CB FDB DEBERR 
Fi7B SE 41 CLRBRK LDX BRKADR GETS ADDRESS OF BRKPNT 
F17D. 962) 35 LDA BRKSAV LOADS ORIG BYTE CONTENTS 
FIV #795.) 64 STA @,X RESTORES BYTE DATA 
F181 9F 49 STX PCVAL 
F183 8E F696 LDX #CLTXT . : 
Fi86 17 FEFS LBSR  PRTEXT PRINT “CLR BRK 
F189 16 @@B2 LBRA DSPAD1 
F18C 17 FF24 CHANGE LBSR  INPNUM INPUTS NEW BYTE CONTENTS 
F1i8F 9B 49 CHANG1 LDX PCVAL LOADS OPENED BYTE LOCATIO 
Fi91 BE? 84 STB @,Xx STORES NEW BYTE CONTENT 
F193 28 @2 BRA OPNXT1 
F195 9E 49 OPNNXT LDX PCVAL 

OPNXT1 INX FORMS NEXT LOCATION ADDRESS 
Fi97 30. 1 LES . "5 
F199 17 @8Aa LBSR DSPADR GOES TO OPEN LOCATION BYTE 
F1SC 22 58 BRA NCHG 
F19E 9E 49 OPNPRE LDX PCVAL 
a DEX FORMS PREV LOCATION ADDR 

F1A@ 30 iF LFAX.. =1,X 
F1iA2 17 23097 LBSR  DSPADR GOES TO OPEN THE LOCATION 
F1A5 20 4F BRA NCHG 
FIA7 OF 49 BRKSET LDX PCVAL 
F1IA9 AG 84 LDA @,X LOADS DATA OF OPENED LO 
F1IAB 97 3E STA BRKSAV SAVES DATA OF OPENED BYTE 
FIAD OF 41 STX BRKADR SAVES ADDR OF BREAKPOINT 
FIAF 86 3F LDA #$3F LOADS SOFTWARE INTRUP CO 
F1B1 AZ 84 STA @,X SETS A SWI AT OPENED BY 
F1iB3 88 F68E LDX #BKIXT PRINT “BREAK 
F1B6 17 #FEC8 LBSR  PRTEXT 
F1B9 16 FF64 LBRA POPLIN GOES TO NEXT LINE FOR COMM 
F1BC 18DE 49 SETSTK LDS PCVAL 
FIBF i1QDF 3F STS STKPTR 
Fic2 8E F6A4 LDX #SKTXT PRINT “SET STACK" 
Fic5 17 FEBS LBSR  PRTEXT 
Fic8 16} 3=FFS5? LBRA DEBUG RETURNS TO INPUT COMMAND 


FICB 8E F6BQ DEBERR LDX  #OPTEXT ; " 
FICE 17 FEBO LBSR = PRTEXT PRINT “INVAL COMM 
F1D1 16 FF4C RETRN1 LBRA POPLIN 


@ FiD4 OF 49 GOLOCN LDX PCVAL 
F1D6 18CE ECOO LDS #STKINI CLEAN STACK ON GO 
FIDA 65 84 JMP @,X JUMP TO USER PROGRAM 
F1DC 98 49 JMPLCN LDX PCVAL 


FIDE 10CE ECO LDS #STKINI CLEAN ST N JSR 
CORPORATION 


¢ 
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FiE2 AD 84 JSR @ XxX 
F1E4 20 EB BRA RETRN1 


sa : ; = Al CORPORATION - 


4 


+ 
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F156 
FILES 
FIBA 


FLEC 
FLIEF 
F1F2 
F1F4 


F1F6 
FIFO 
F1FB 
F1iFD 
F1iFF 
F201 
F293 
F205 
F207 
F289 
F2OB 
F29E 
F218 
F213 
F216 
F218 
F21B 
F21E 
F221 
F224 
¥2a7 
F229 


F22C 
F2eek 


Feer 
F231 
F235 


F235 
F239 


F23C 
F23E 
F241 
F245 
F246 
F248 
F24A 


MS 
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OPNCUR 


OPNLOC 


Zeixek & 


CHG 


CHG 


NEX 


RTFINT 


OPNSTK 


EXITD 


we 


DSPADR 
DSPAD1 


DSPAD2 
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LDX 
BSR 
BRA 


LBSR 
LBSR 
STD 
BSR 


LBSR 
CMPA 
BMI 
CMPA 
BLE 
CMPA 
BMI 
CMPA 
BGT 
TFR 
LBSR 
TFR 
LBSR 
LDX 
OTA 
LBSR 
LDX 
LBSR 
LBRA 
LBSR 
LEAS 
LBRA 


LEAS 
RTI 


TSX 
TFR 
LEAX 
BRA 


LDS 
LBRA 
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PCVAL 
DSPADR 
NCHG 


SPA 
INPNUM 
PCVAL 
DSPAD2 


GETCHR 
#530 
NEX 
#539 
CHG 
#541 
NEX 
#546 
NEX 

A,B 

SPA 

B,A 
PUTCHR 
#CHRBUF 
@,X+ 

ED PEL 
#CHRBUF 


ae | 
DSPADR 


#SFF 
DEBUG 


OPEN CURRENT LOC IN PCVAL 


LOADS A 16 BIT NUMBER 
STORES NEWLY OPENED LOCAT 
DISPLAYS CONTENTS OF LOCAT 


HAVING JUST DISPLAYED THE OPEN LOCATION, IF NEXT 
INPUT IS A HEX CHARACTER ~ TREAT IT AS A CHANGE 


GET NEXT INPU CHAR 
<@ IS NOT HEX 
@-9 IS O.K. FOR CHANGE 
<A IS NOT HEX 
>F IS NOT HEX 
SAVE CHAR 
PRINT A SPACE 
GET CHAR BACK 
ECHO IT 


STORE CHAR 
GET REST OF CHANGE DATA 


CONVERT IT TO BINARY 
ECHO CHAR IF NOT ESC 
CLEAN STACK 
BACK TO PROCESS CHAR AS C¢ 


CLEANS UP THE STACK 
RETURNS FROM BRI 


TOP OF THE STACK 


DISPLAY LOCATION ADDRESS & CONTENTS 


STX 
LBSR 
BSR 
LBSR 
LD 
LDA 
BRA 


PCVAL 
NEWLIN 
PNTDIG 
SPA 
PCVAL 
@,X 
PNTBYT 


SAVES OPENED LOCATION AD 
PRINTS A "C,R.” AND “I 
PRINTS OUT "PCVAL” IN HEX 


LOADS PTR TO OPENED LOCAT) 
LOADS DATA FROM LOCATIOI 
PRINTS DATA IN HEX FORMAT 


A | = CORPORATION 


f 


/ 
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F24C 
F24E 
F258 


ieve 
F254 
F205 
F256 
Fe57 
F258 
F25A 
F25C 
F25E 
F260 
F262 
F264 
F266 


F269 
F26B 
r26D 
F278 
F272 
F273 
F274 
F276 
F278 
Fe7A 
F273 
F27D 
F27E 
F288 
F281 
F285 
F285 
F287 
F289 
F28A 
F28C 
F28F 
E292 
F294 
F296 
F299 
F298 
F29C 
F2OFr 
F2A2 
F2A4 
F2A6 


MS 


49 


@2 


FDF2 
FEZ1 


E6 


FDE2 
FE11 
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PNTDIG 


* 


PNTBYT 


PNTASC 


PNTBF1 
* 


a 
* 
EXESBR 


EXES1 


EXES2 


EXES5 


EXES? 


* 


* REGISTER PROMPTS 


a6 
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LDA PCVAL PRINTS THE 2 HI HEX DIGIT 
BSR PNTBYT OF THE OPENED ADDRESS 
LDA PCVAL+1 PRINTS OUT 2 LO HEX DIGITS 


PRINT OUT 2 HEX DIGITS 


PSHS A SAVE FOR LO DIGIT CON 
LSRA 
LSRA SHIFT HI NIBBLE 
LSRA 


LSRA 

BSR PNTASC GO CONVERT TO ASCII 

PULS A RETRIEVE ORIGIH 
ANDA #5F MASK OFF HI NIBBLE 

ADDA #532 CONVERT TO ASCII 

CMPA #539 CK IF HEX 

BLS PNTBF1 

ADDA #7 CONVERT TO HEX CHAR 


LBRA PUTCHR DISPLAYS CHARACTER 


EXECUTE. SET REGISTER VALUES & GOTO (PC) 


LEAS 18,58 MAKE SPACE FOR 12 BYTES 
LDA #10 

LDX #PCVM am 7! 
BSR EXES5 EACH TIME: PRINT “PC=" (PU 
DECA GET VALUE & STO 
DECA ON STACK. 

LEAX 5,X 

CMPA #04 

BGE EXES1 

INCA 

BSR EXES? 1 BYTE REGS:PRINT, GET V 
DECA & STORE IN DP,B, 
LFAX 5,X ON STACK. 

TSTA 

BGE EXES2 

LDB Z,s FOR CC, MAKE SURE E IS § 
ORB #£a9 

STB @,S 

RTI PULL REGS FROM § 
PSHS A FOR 2 BYTE REGS: PRIN 


LBSR PRIEXT GET VAL & STORE IT. 


LBSR INPNUM 


TFR DY 

PULS A 

STY A,S 

RTS 

PSHS A FOR 1 BYTE REGS AS EX 


LBSR PRTIEXT 
LBSR INPNUM 


PULS A 
STB A,S 
RTS 
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F2A7 20 PCYM FCC PC= 
F2A8 58 

& F249 43 
F2AA 3D 
F2AB 5E = ae 
F2AC 20 ECC U= 
F2AD 20 
F2AE 55 
F2AF 3D 
F2B2 5k . ae 
F2B1 20 FEC = 
F2B2 20 
F2B3 59 
F2B4 3D 
F2B5 55 , af 
F2B6 20 FCC X= 
F2B7 20 
F2B8 58 
F2B9 3D : 
F2BA 5B z -_ 
F2BB 20 FCC DP= 
F2BC 44 
F2BD 50 
F2BE 3D 
F2BF 5B 
F2C2 20 FCC . Be 
F2c1 22 
F202 42 

° F2C3 3D 
Fec4 55 : ~ 
F2c5 20 FCC A= 
F2C6 20 
F2C7 41 
F2c8 3D 
F2C9 5E : 7 
F2CA 20 FCC c=" 
F2CB 43 
F2CC 43 
F2CD 3D 
F2CE 55 


9 
0 
P| 
0 
0 
D 
= 
0 
2 


vf 


y 


F2CF 
Fede 
F2D5 
F208 
F2DA 
F20C 
F2DE 
F2EO 
F2ES 
F2E6 
F2E8 
FeEB 
F2ED 
F2EF 
F2FO 
F2F2 
F2F4 
F2F6 
F2F8 
F2FA 
F2FC 
F2FE 
F380 
P3@2 
F304 
F326 
F5@8 
FOOA 
FSOC 
PSOE 
F310 
F312 
F314 
F316 
F318 
FOIA 
F31D 
FS2@ 
F323 
F326 


F328 
FS2A 
F32C 
F32E 
F330 
F332 


MTDEB.MS 


8D 
at 
8D 
97 
oF 
39 
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ae 


* RAM LOADER 
% 
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LODRAM LDX 


UNIT2 


UNIT1 
UNIST 
LOAD1 


LOADI1 


LOAD15 


EXITL 
EOF 


RAM LOADER INPUT & UTILITY ROUTINES 


RECORD FOLLOWING “S1" 


ADDR 


% 3% 


LBSR 
LBSR 
CMPA 
BEQ 
CMPA 
BEQ 
LBSR 
LBSR 
BRA 
LBSR 
LDA 
BRA 
CLRA 
STA 
BSR 
CMPA 
BNE 
BSR 
CMPA 
BEQ 
CMPA 
BNE 
CLR 
BSR 


SUBA ' 


STA 
BSR 
BSR 
DEC 
BEQ 
STA 
BRA 
INC 
BEQ 
LDX 
LBSR 
LBRA 
LDX 
BRA 
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#WHICH 
PRTEXT 
INPCHR 
#$31 
UNIT2 
#53¢ 
UNIT1 
ERROR 
CRLF 
LODRAM 
UNZINI 
#1 
UNIST 


UNITN 
INCH 
#°S 
LOAD1 
INCH 
#°9 
EOF 
ou: 
LOAD1 
CKSM 
BYTE 
#2 
BYTCT 
BADDR 
BYTE 
BYTCT 
LOAD15 
@,X+ 
LOAD11 
CKSM 
LOAD1 
#LDERM 
PRTEXT 
DEBUG 
#LDOK 
EXITL 


* 
ok 
ok 
* BADDR BUILDS A 16 BIT ADRESS FROM THE 1ST 4 CHARS OF THE 
x 
B 


BSR BYTE 
STA TMP 
BSR BYTE 
STA IMP+1 
LDX TMP 
RTS 


BYTE READS 2 CHARS & FORMATS THEM INT 
IT ADDS IN BYTE VALUE TO THE ioe) 


“UNIT?” (@=TERM=ACIA / 1=A 


GET 1 CHAR RESPONSE 
LS oh. & LF 


IS IT A @? 
PRINT A"? 

& CR/LF 
& ASK AGAIN 
INITIALIZE ACIA2 


TERMINAL IS ALREV 
SAVE UNIT FLAG 
GET A CHAR VIA SELECTED } 


1ST GOOD CHAR IS §& 
GET ANOTHER CHAR 
$9 => EOF 


"St" => START OF RECOR 
OTHERWISE MUST BE GARBAGE 
START RECORD: CLEAR CHEC 
READ A BYTE 


SAVE COUNT OF DATA BYTES 
BUILD RAM ADDRESS (WHERE | 
GET A BYTE 


BRANCH IF WE SOT SPECIFIED 
ELSE SAVE BYTE 
& LOOP 
GOT SPECIFIED # OF BYTES 
CHECKSUM 0.K. GO LOOK FO 
“CHECKSUM ERROR 
BACK TO DEBUGGER TO ACCEP 


“LOAD O.K.- 
EXIT LOAD 


GET A HEX BYTE 
GET ANOTHER HEX BYTE 
RETURN WITH 16 BIT ADD 


IR BYTE VALUE 


G CORPORATION / 
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4 


F335 
F335 
F336 
F337 
F338 
F339 
F33B 
F3SD 
F33F 
F541 
F343 
F345 
F347 
¥349 


FO4a 
F34C 
FS4E 
F35@ 
F352 
F554 
F356 
F358 
FOSA 
FSSC 
FOSE 
FSSF 
F362 


F364 
F366 
F368 
FS6A 
F36C 
FS6E 
F376 
FO?71 


F374 
F375 
F376 
F377 
F378 
F379 
FS7A 
F37B 
FS7C 
F37D 
PSVE 
FO7F 
F38@ 


BYTE 


Ht HH 


NHEX 


INCH1 
% 
* LOAD 


xe 
WHICH 


LDERM 


BSR 
ASLA 
ASLA 
ASLA 
ASLA 
PSHS 
BSR 
ANDA 
ADDA 
TFR 
ADDB 
STB 
LEAS 
RTS 


BSR 
CMPA 
BMI 
CMPA 
BLE 
CMPA 
BMI 
CMPA 
BGT 
SUBA 
RTS 
LDX 
BRA 


GETS 


LDA 
BEQ 
LDA 
BEQ 
ANDA 
CLR 
RTS 
LBRA 


INHEX GET 1 CHAR 


SHIFT TO HI 4 BI 


A SAVE HI 4 BITS (LO 4 
INHEX GET 2ND CHAR 

#90F MASK TO LO 4 BITS 

2,5 ADD IN HI 4 

A,B COPY BYTE TO RB 

CKSM ADD BYTE VALUE INTO CHEC 
CKSM SAVE NEW CHECKSUM VALUE 
1,5 CLEAN UP STACK 


INHEX GETS AN INPUT ASCII CHARACTER, CHECKS IT FOR VALID 
AND RETURNS IT AS BINARY CODED HEX DIGIT 


INCH GET A CHAR 
#330 

DERR <@ NOT VALID 

#539 

INEX Q@ =< CHAR =< 9 OK AS IS 
#541 

DERR <A INVALID 

#$46 

DERR >F INVALID 

#7 BETWEEN A & F SUBTRACT 
#BADD "DATA ERR” 

EXITL 


ASCII CHAR FROM THE SELECTED UNIT 


UNITN IF (UNIT .EQ. @) : 
INCH1 THEN BRANCH . 
CHR2 ELSE GET IT FROM ACIA2 
INCH2 WAIT FOR CHAR TO BE PUT I 
#87F VIA INTERRUPT. MASK OFF 
CHR2 

GETCHR USE REGULAR KEYBOARD READ 


RAM MESSAGES 


FCC 


FCC 


“GUN Tha 


"@CKSUM ERRG@” 


Ala CORPORATION / 


f 
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F381 2¢ 
F382 45 
@ =e 52 

F384 52 

F385 40 

F386 5E i 2 

F387 40 LDOK = FCC @LD 0.K.@ 

F388 4¢ 

F389 44 

F38A 20 

F38B 48 

F38C 25 

F38D 4B 

F38E 2 

F38F 49 

F390 5E . - 

F391 49 BADD FCC @DATA ERRG 

F392 44 

F393 41 

F394 54 

F305 41 

F396 20 

F397 45 

F398 52 

F399 52 

F39A 49 

F39B 5E 
K 

ced : PRINT REGISTERS 

F39C SE F661 PREGS LDX  #RGTEXT 

F39F 17  FCDF LBSR  PRTEXT PRINT HEADING LINE 

F3A2 30 62 LEAX 2,8 

P3A4 17. FD63 LBSR PRTREG PRINT REGISTER VALUES 

F3A7 16 FD?6 LBRA POPLIN RETURN VIA POPLIN 
* 
* HELP: PRINT DEBUGGER COMMANDS 
x 

F3AA 86 BD HELP LDA  #$0D 


F3AC 17 . FC96 LBSR  PUTCHR NEW LINE BEFORE PRINTING 
F3AF 8E F3B6 LDX #0CM 
F3B2 17 FCCC LBSR PRTEXT 
F3B5 39 RTS 
F3B6 2F ocM FCC i OPEN CURRENT LOC@™ 
F337 28 
F3B8 20 
F3B9 28 
F3BA 4F 
F3BB 50 
F3BC 45 
F3BD 4E 
F3BE 20 
@ F3BF 43 
F3C2 55 
F3C1 52 
F3C2 52 
F3C3 45 


FSC E I 
‘ = a CORPORATION 


£ 
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F3C5 54 
F3C6 20 
& F307 4C 
F3C8 4F 
F3C9 43 
F3CA 4@ ‘ - 
F3CB 43 CBM FCC C CLEAR BREAKPOINT 
F3CC 20 
F3CD 20 
F3CE 20 
F3CF 43 
F3D0 4C 
F3D1 45 
F3D2 41 
F3D3 52 
F3D4 20 
F3D5 42 
F3D6 52 
F3D7 45 
F3D8 41 
F3D9 4B 
F3DA 50 
F3DB 4F 
F3DC 49 
F3DD 4k 
F3DE 54 
F3DF 42 ; 
F3E@ 20 CMM FCC CHANGE OPEN LOC TO Xx@ 
® F3E1 29 
F3E2 20 
F3E3 22 
F3E4 43 
F3E5 48 
F3E6 41 
F3E7 4E 
F3E8 47 
F3E9 45 
F3EA 20 
F3EB 4F 
F3EC 52 
F3ED 45 
F3EE 4E 
FP3EF 2e 
F3FQ 4C 
F3F1 4P 
F3F2 43 
F3F3 20 
F3F4 54 
F3F5 4F 
F3F6 20 
F3P7 58 
F3F8 58 
F3F9 49 7 
e F3PA 2B ONM eC + OPEN NEXT LOC@" 
F3FB 22 
F3FC 20 
F3FD 20 


FSFE 4F 


FSFF 50 ATA 


CORPORATION / 


( 


Wa 
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F400 
F431 
F4@2 
F463 
F404 
F465 
F406 
F407 
F408 
F489 
F40A 
F42B 
F43C 
F40D 
F40r 
F40F 
F410 
F411 
F412 
F413 
F414 
F415 
F416 
F417 
F418 
F419 
F4iA 
F41B 
F41C 
F41D 
F41E 
F4iF 
F42¢ 
F421 
F422 
F423 
F424 
F425 
F426 
F427 
F428 
F429 
F42A 
F428 
F42C 
F42D 
F42u 
P42F 
F430 
F431 
F432 
F435 
F434 
¥435 
F436 
F437 
F438 
F439 
F43A 
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45 
4k 
29 
4E 
45 
58 


OPM 


5 BM 
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ATA CORPORATION 6889 ASSEMBLER 


~ OPEN PREVIOUS Loce” 


B SET BRKPT IN OPEN LOC@” 


| CORPORATION 
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F43B 42 . P 
F43C 47 JOM FCC G GOTO OPEN LOCG 
& F43D 20 
F438 20 
F43F 20 
F440 47 
F441 4¥F 
F442 54 
F443 4F 
F444 20 
F445 4F 
F446 58 
F447 45 
F448 4k 
F449 20 
F44A 4C 
F44B 4F 
F44C 43 
F44D 40 . : 
F44E 4A JSM FCC J JSR TO OPEN LOC@ 
F44F 20 
F458 20 
F451 20 
F452 4A 
F453 53 
F454 52 
F455 20 
F456 54 
ae) F457 4F 
F458 20 
F459 4F 
F45A 50 
F45B 45 
F45C 45 
F45D 20 
F45E 4C 
F45F 4F 
F462 43 
F461 40 7 
F462 4C LRM FOC ; LOAD PROG/DATA INTO RAMG@ 
F463 20 
F464 20 
F465 20 
F466 4C 
F467 4F 
F468 41 
F469 44 
F46A 20 
F46B 59 
F46C 52 
F46D 4F 
F46E 47 
F46F 2F 
i F470 44 
F471 41 
F472 54 
F473 41 
F474 20 


F475 49 ATA 


Va 


/ 
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F476 
F477 
F478 
F479 
F47A 
F478 
F47C 
F47D 
F47E 
F47F 
F480 
F481 
F482 
F483 
F484 
F485 
F486 
F487 
F488 
F489 
F48A 
F48B 
F48C 
F48D 
F48E 
F48F 
F498 
F491 
F492 
F493 
F494 
F495 
F496 
F497 
F498 
F499 
F49A 
F49B 
F49C 
F49D 
F498 
F49F 
F4 Ae 
F4A1 
F4h2 
F4A3 
F4A4 
F4A5 
F4A6 
F4A7 
F4A8 
F4A9 
F4AA 
F4AB 
F4AC 
F4aD 
F4AE 
F4aF 
F438 
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OLM 


RIM 


OSM 
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OPEN Loc xxxxe" 


RETURN FROM INT" 


OPEN STACK PTR LOCe” 
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F4B1 4B 
F4B2 29 
@ “8 50 
F4B4 54 
F4B5 52 
F4B6 20 
F4B? AC 
F4B8 4F 
F4B9 43 
F4BA 4B ; . 
F4BB 43 SSM FCC CTL-S SET STACK PTR TO OPEN Loc@ 
FABC 54 
F4BD 4c 
FABE 2D 
F4BF 53 
F4CO 20 
P4C1 20 
F4C2 53 
F4C3 45 
F404 54 
F4C5 20 
F4C6 53 
F4C7 54 
F4C8 41 
F4C9 43 
F4CA 4B 
F4CB 20 
F4CC 50 
@ rcp 54 
F4CE 52 
F4CF 20 
F4D8 54 
F4D1 AF 
F4D2 20 
F4D3 AF 
F4D4 50 
F4D5 45 
F4D6 4E 
F4D? 20 
F4D8 4C 
F4D9 4F 
F4DA 43 
F4DB 40 c ; 
F4DC 4D MIM FCC M MEMORY TEST 
F4DD 20 
F4DE 20 
F4DF 20 
F4EQ 4D 
F4E1 45 
FAE2 AD 
F4E3 4F 
F4R4 52 
F4E5 59 
@ i 20 
F4E? 54 
F4E8 45 
F4E9 53 
F4EA 54 


F4EB 46 ; AYA 
a) ai CORPORATION 


Fa 
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F4EC 52 PRM FCC Pp PRINT REGISTERS@” 
F4ED 22 
& F4EE 20 
F4EF 20 
F4FO 5¢ 
F4Fi 52 
F4¥2 49 
F4F3 4k 
F4F4 54 
F4F5 20 
F4F6 52 
F4F7 45 
FP4F8 47 
F4F9 49 
F4FA 53 
F4FB 54 
F4FC 45 
F4FD 52 
F4FE 53 
F4FF 42 _ 7 
F589 48 HLM FCC H HELP: PRINT DEBUGGER COMMANDSG 
F521 20 
F502 20 
F503 20 
F504 48 
F505 45 
F596 4C 
F587 5g 
a F588 3A 
F509 20 
P5OA 5e 
F5QB 52 
F59C 49 
F59D 4E 
F50E 54 
F50F 20 
F510 44 
F511 45 
F512 42 
F513 55 
F514 47 
F515 47 
F516 45 
F517 52 
F518 20 
F519 43 
F51A 4F 
F51B 4D 
F51C 4D 
F51D 41 
F51E 4E 
F51F 44 
F520 53 
Fd F521 40 “ ~ 
F522 58 XTM FCC x EXIT DEBUGGER®@ 
F523 22 
F524 20 
F525 20 


F526 45 ] 
\ A FE CORPORATION 
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F527 
F528 
F529 
FS52A 
F52B 
F52C 
F52D 
F52E 
F52F 
F530 
F531 
F532 
F533 
F534 


END OF DD BUG Bit oie scco eo eres $ sate Seke ernie’ w She aiele ees fdaie faites braces 
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ASCII TO BINARY CONVERSION 


* 


x CONVERT AN ASCII NUMBER STRING TO BINARY POINTED TO 

x BY X TO AN UNSIGNED 16 BIT BINARY NUMBER IN A:B 

* EXIT WITH XREG POINTING TO NEXT POSITION AFTER 

x THE END OF THE STRING 
F535 CC 2@0A ASCDEC LDD #19 CONVERT ASCII TO DECIMA 
F538 22 03 BRA ASC2 
F53A CC 9819 ASCBIN LDD #16 LOADS BASE 16 FOR CONVR 
F53D DD 32 ASC2 STD ARA SAVES BASE IN BASE # 
F53F 34 62 PSHS A PUSH A ZERO 0 
F541 F680 NXTCHR LDB @,X+ GETS CHAR TO CONVERT 
F543 C1 «38 CMPB #0 TESTS FOR END-OF-STRING 
F545 2D 1F BLT  AEXIT EXITS IF END 
F547 CZ 38 SUBB #°@ FORMS B.C.D. NUMBER 
F549 C1 BA CMPB #10 TESTS IF DECIMAL DIGIT 
F54B 2D OA BLT ASC3 SKIPS IF DECIMAL 
F54D C1 18 CMPB #16 TESTS FOR END OF STRING 
F54F 2F 15 BLE ARXIT EXITS IF NOT A HEX DIGIT 
F551 C28? SUBB #7 FORMS A HEX B.C.D. DIGI 
F553 C1 10 CMPB #16 TESTS FOR END-OF-STRING 
F555 20 OF BGE § AEXIT EXITS IF CHAR >"F 
F557 D? 945 ASC3. STB  TMP1 SAVES DIGIT FOR ADD 

@ F550 35 04 CNVASC PULS B RESTORES LO OF “NUMBE 

F55B 127 2885 LBSR MULT NUMBER GETS NUMBER * BAS 
F55E DB 45 ADDB MP1 NUMBER GETS NUMBER + DIG! 
F562 89 00 ADCA #2 
F562 34 04 PSHS B SAVES LO OF N 
F564 20 DB BRA NXTCHR GOES TO CONVRT NEXT CHAR 

AEXIT DEX 
F566 30 1F LEAX -1,X ; 
F568 35.04 PULS 8B RESTORES “NU 


FS6A 359 RTS RETURNS TO CALL: 


/ 


f 


MTDEB. 


FS6B 
FS6D 
F57@ 


Fait 
F574 
F577 


F579 
F578 


FS7E 
F580 


F582 
F584 
F586 
F588 
F58A 


F58C 
FS8E 
F590 
F5Se 
F594 
F595 
F597 
F598 


FSSA 
F59C 
FSOE 
FSOF 
FSA1 


FS5A2 
FSA4 
F5A6 
F5A8 
FOAA 
FSAC 


MS 


oF 
8E 
20 


OF 
8E 
2£e 


OF 
8E 


OF 
32 


6F 
63 
OE 
OF 
8D 


D7 
D6 
54 
D6 
5D 
26 
4D 
26 


OF 
35 
5D 
2A 
39 


Ci 
2F 
CB 
CB 
E? 
22 
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43 
OOOA 
C 


43 
2818 
@5 


43 
£208 


34 
SE 


B4 
E4 
34 
SZ 
70 


45 
33 
04 
45 


EF 
EC 


43 
04 


@1 


@9 
G2 
@7 
5@ 
82 
EE 


BINHEX 


BINOCT 


BINASC 


BIN1 


BINSTR 


BINS 


BIN4 


BINS 
BINOUT 
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BINARY TO ASCII ROUTINE 


CONVERT A 16 BIT BINARY NUMBER IN A:B TO A STRING O 
ASCII DIGITS. THE ASCII STRING CAN BE IN ANY BASE 
FROM 2 THROUGH 41. THE VALUE OF THE BASE IS IN ARB 
ON ENTRY X MUST CONTAIN THE OUTPUT POINTER 

ON EXIT X POINTS TO THE LAST DIGIT +1 

THE NUMBER WILL BE LEFT JUSTIFIED W/ NO LEADING ZER 


STX TMP SAVE OUTPUT POINTER 
LDX #12 SET BASE TO DECIMAL 
BRA BINASC 
Salk TMP SAVE OUTPUT POINTER 
LDX #16 SET TO BASE 16 HEX 
BRA BINASC 
STX TMP 
LDX #8 SET BASE TO OCTAL 
STX ARB SAVE OUTPUT POINTER 
DES SET TOP-OF=STACK TO. 
LEAS -1,5 

ALL ONES TO TELL END OF 
CLR 2,5 CHAR STRING (LAST CHAR | 
COM 2,S PUT ON STACK FIRST) 
LDX ARB GET DIVISOR BASE 
STX ARA 
BSR DIVIDE 
STB TMEL SAVE B OF A:B 
LDB ARA+1 LOAD DIGIT REMAINDER 
PSHS B STACK DIGIT 
LDB TMP1 RESTORE B OF A:B 
TSTB . TESTS IF QUOTIEN[ 
BNE BIN1 
TSTA 
BNE BIN1 
LDX PUP GET OUTPUT POINTER 
PULS B UNSTACK A DIGI 
TSTB CK IF END 
BPL BIN4 BRA IF NOT 
RTS EXIT ROUTINE 
CMPB #9 CK IF A HEX DIGIT 
BLE BINS BRA IF NOT 
ADDB #7 CONVERT TO HEX DIGIT 
ADDB #53¢ FORM ASCII DIGIT 
STB Q,X+ 
BRA BINS 


i Q CORPORATION / 


/ 


4 


MTDEB. 


FSAE 


F536 
FSBS 
FSB5 
FSB? 
F5B9 
FSBC 
FSBE 
F5C@ 
FOCL 
F5C3 
F504 
F5C6 
F5C8 
FSCA 
F5CC 
FSCE 
FSD1 
FSD2 
F5D4 
F5D7 
F5SD9 
FSDB 
FSDE 


F SES 
FSE2 


MS 


aC 


8E 
8D 
6F 
D6 
BE 
A6 
27 
5A 
26 
5D 
2 
86 
@D 
26 
86 
poy 
5A 
26 


85° 


A6 
rAd 
17 
22 


OF 
59 


4C 


E836 
B6 
84 
4B 
£836 
88 
3 


F9 


OE 
38 
4¢ 
@2 
22 
FA74 


EF 
E836 
8@ 
@5 
FA67 
F? 


4C 


12/10/81 


OUTDZ 


OUTDEC 


OUTD1 


OUTD2 


OUTDS 


OUTD4 
OUTDS 


OUT DX 
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CONVERT A 16 AIT NUMBER IN AzB TO DECIMAL AND 
OUTPUT IT WITH LEADING ZEROS & RIGHT JUSTIFY 


INC 


CONVERT A:B TO DECIMAL & BLANK LEADING ZEROS 


LDX 
BSR 
CLR 
LDB 
LDX 
LDA 
BEQ 
DECB 
BNE 
TSTB 
BEQ 
LDA 
151 
BNE 
LDA 
LBSR 
DECB 
BNE 
LDX 
LDA 
BEQ 
LBSR 
BRA 


CLR 
RTS 


LZFLG 


#CHRBUF 
BINDEC 
a,x 
NUMDIG 
#CHRBUF 
@,X+ 
OUTD2 


OUTD1 


OUTD4 
#°2 
LZFLG 
OUTD3 
#320 
PUTCHR 


OUTD2 
#CHRBUF 
@,X+ 
OUTDX 
PUTCHR 
OUTDS 


LZFLG 
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TURN ON LEADING ZEROS FLA 


GET OUTPUT POINTER 
GO CONVERT 
SET UP TERMINATOR 
GET # OF DIGITS TO OUTPUT 
GET BUFFER POINTER BACK 
GET CHAR 
BRA IF A TERMINATOR 
COUNT LEADING ZE 
BRA IF NOT DONE 


GET AN ASCII @ 
CK IF LEADING ZEROS 
BRA IF SO 
GET A SPACE CHAR 
OUTPUT BLANK OR @ 


GET CHAR 

EXIT IF DONE 
OUTPUT THE CHAR 

GO BACK FOR MORE 


Fa 
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* MULTIPLY ROUTINE 

# MULTIPLY TWO 16 BIT BINARY NUMBERS TO PRODUCE A 

. 16 BIT RESULT. THE CONTENTS OF ARA REMAIN UNCHANG 

4 AsB = A:B X ARA 

* 

& Fees owenaaes I B¥ARA(LO) 

* pp bee een ees eee I @ BXARA (HI) 

* ? a eae I @ A* ARA(LO) 

se 

. E frsssabaueceauas I RESULT IN A:B 

ok 
F5E3 34 26 MULT  PSHS  Y,D CREATE 2 BYTE TEMP & SA 
F5E5 96 33 LDA ARA+1 ARA(LO) -> A 
F5E7 3D MUL B¥ARA(LO) -> A: 
F5E8 ED 62 STD 2,8 SAVE PARTIAL RESULTS 
F5EA 35. 02 PULS A A =S 2h 
F5EC D6 33 LDBARA+1 ARA(LO) -> B 
F5EE 3D MUL A¥ARA(LO) -> At 
F5SEF 1F 98 TFR BB, A LO BYTE OF PROD TO 81 

x BYTE OF RESULT 
FSF1 5F CLRB CLEAR LO BYTE OF 
F5F2 ES 61 ADDD 1,S ADD IN PREV PARTIAL RESt 
F5P4 ED 61 STD 1,8 SAVE IT 

@ rsre35 04 PULS 8B B <> B 

F5F8 96 32 LDA ARA ARA(HI) -> A 
F5FA 3D MUL BYARA(HI) -> A: 
F5FB 1F 98 TFR BA LO BYTE OF PROD TO BI 0 
FSFD SF CLRB 
FSFE EZ 84 ADDD ,S ADD IN PREV PARTIAL RES 
F600. 32 © 62 LEAS 2,8 CLEAN UP STACK 
F6G2 39 : RTS DONE 


oh ial CORPORATION / 


if 
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an * DIVIDE ROUTINE 
* DIVIDE A 16 BIT NUMBER IN A:B BY A 16 BIT 
* NUMBER IN ARA. EXIT WITH A:B = QUOTIENT AND THE 
. REMAINDER IN ARA. AzB = AtB/ARA 
F603 34 06 DIVIDE PSHS  B,A LOADS DIVIDEND INTO X3, 
F605 DC 32 LDD  —ARA GET DIVISOR FROM ARA 
F607 34 6 PSHS BA PUT DIVISOR INTO X1,2 
DES 
F609 32. 7F LEAS -1,S 
TSX 
F6QB 1F 41 TFR SX 
F6ZD C6 1 LDB #1 INITIALIZE COUNT 
F6@F 6D 1 TST 1X TEST FOR HI DIVISOR BIT 
F611 2B OB BMI DIV2 BRA IF YES 
F613 5C DIV —_—INCB COUNT LEADING ZE 
F614 68 2 ig 2a LEFT JUSTIFY X1,2 
F616 69 91 RO” tek 
F618 2B 4 BMI Div2 BRA IF NO LEADING ZERO 
P61A OY. 11 CMPB #17 CK FOR ALL ZERO DIVISIO 
FE1C 26 FS BNE DIV1 GO BACK IF BITS LEFT 
F6E1E B? a4 DIV2 STB  &,X SET COUNTER 
F625 EC 93 LDD = 3,X A:B GETS ORIGINAL DIVI 
F622 6F « 03 Cy, eS .x 
F624 6F 604 CLR 4X 
@ rezea3 21 DIV3 SUBD 1,X START OF DIVIDE LOOP 
F628 24 06 BCC DIV4 BRA IF DIVIDEND < DIVISO 
F62A ES @1 ADDD 1,X RESTORE DIVIDEND IN A:B 
CLC 
F62C 10 FE ANDCC #$FE 
F6ZE. 20 02 BRA DIVS 
DIV4 SEC 
F630 1A 01 ORCC #21 
F632 69 4 DIVS ROL. 4,X 
F634 69 93 ROE - 34% 
F636 64 1 LSR 1, SHIFT DIVISOR K1,2 RIC 
F638 66 02 ROR  _2,X 
F63A 6A 84 DEC @, X DECR COUNTER 
F63C 26. £8 BNE DIV3 BRA IF NOT DONE 
F6E3E DD 32 STD  ARA SAVE REMAINDER IN ARA 
F649 32 63 LEAS 3,S CLEAN UP THF STACK 
F642 35 6 PULS A,B GET QUOTIENT IN 
F644 39 RTS 
s HERE ARE ALL THE DEBUGGER MESSAGES 
F645 40 RESTXT FCC /@¥*ATA CORP. 6809 DEBUGGER*@7/ 
F646 2A 
F647 41 
@ 54 
F649 41 
F64A 20 
F643 43 
F64C 4F 


F64D 52 Ala 


CORPORATION 


4 


4 
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F64E 50 
F64F 2E 
@ = 29 
F651 36 
F652 38 
F653 30 
F654 39 
F655 20 
1656 44 
F657 45 
F658 42 
F659 55 
F65A a? 
F65B a? 
F65C 45 
F65D 52 
FO5E 2A 
FO5F 40 
F662 5E 
F661 4@ RGTEXT FOC /@ EFHINZVC A B DP XREG YREG UREG PC 
F662 20 
F663 45 
F664 46 
F665 48 
F666 49 
P66? 4k 
F668 5A 
@ 660 56 
F66A 43 
F668 20 
F66C 44 
FEED 20 
F66E 20 
F6GF 42 
FE70 20 
F671 20 
F672 44 
F673 50 
F674 20 
F675 58 
F676 52 
F677 45 
F678 a? 
F679 20 
F67A 59 
F678 52 
FETC 45 
F67D 4? 
F67E 20 
F67F 55 
F680 52 
F681 45 
@ Ar 
F683 20 
F684 50 
F685 43 
F686 20 


F687 2@ 
iz | is CORPORATION 
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F688 20 
F689 53 
wo F6BA 50 
F68B 40 
F68C 22 
F68D 5E 
F68E 20 BETXT: "PCC r BREAK” 
F68F 2e 
F690 42 
F691 52 
F692 45 
F693 41 
F694 4B 
F695 55 
F696 20 CLIXT . -Fec . CLEAR BREAK” 
F697 20 
F698 43 
F699 AC 
F6SA 45 
F6OB 41 
F69C 52 
F69D 20 
F69F 42 
F69F 52 
FEAS 45 
F6A1 41 
@ raz 4B 
F6A3 55 
F6A4 22 SKTXT FCC . SUT STACK ~ 
F6A5 20 . 
F6A6 53 
F6A7 45 
F6A8 54 
F6AQ 20 
F6AA 53 
F6AB 54 
F6AC 41 
F6AD 43 
F6AE 4B 
F6AF 5B 
F6BQ 22 OPTEXT FCC 7 ? INVALID COMMAND 
F6B1 3F 
F6B2 20 
F6BS 49 
F6B4 4E 
F6B5 56 
F6R6 41 
F6B? 4c 
F6B8 49 
fo] F6B9 44 
F6BA 20 
FO6BB 43 
F6BC 4F 
FEBD 4D 


FEBE 4D T 
G Al CORPORATION / 
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F6BF 41 
F6CS AE 

i F6C1 44 
F6C2 5E 
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RAM MEMORY TEST GENERATES A SWI IF AN ERROR OCCURS 
X CONTAINS THE ERROR ADDRESS & ACCA HAS THE TEST 
PATTERN. ACCB HAS THE RAM FRROR CONTENTS 


eH 


F6C3 8E F755 MEMTST LDX #MEMTXT GET TEST MESSAGE 

F6C6 BD F@81 JSR PRTEXT 

F6C9 BD” FOBS JSR INPNUM GET BEG ADDRESS 

F6CC. DDD STD BEGADR 

F6CE 8E FV?71 LDX #EATXT PRINT END ADR MESSAGE 

F6D1 BD F@81 JSR PRTEXT 

F6D4 BD FOB3 JSR INPNUM GET ENDING ADDRESS 

FED? C3 8001 ADDD #1 ADD 1-FOR TEST 

F6EDA DD 4F STD ENDADR 

F6DC BD F998 JSR CRLF 

F6DF 9E 4F LDX ENDADR GET END ADDRESS 

F6E1 86 @1 LDA #1 

F6E3 34 @2 MEMT1 PSHS A 

F6E5 BD F@94 JSR SPA 

F6E8 35 = §=82 PULS A 

F6EA 34 62 PSHS A 

F6EC BD F252 JSR PNTBYT OUTPUT CURRENT TEST PATTER 

F6EF 35 2 PULS A 
DEX 

FEF1 309. -1F LEAX -1,X 

F6F3 A? 84 MEMT2 STA @ Xx PUT PATTERN IN CURRENT 
DEX 

2 F6F5 32 iF LEAX -1,X 

F6F7 9C 4D CMPX  BEGADR CK IF DONE 

F6F9 26 FBS BNE MEMT2 BRA IF NOT 

F6EFB AZ 84 STA @,X DO LAST LOCATION 

F6FD E6 84 MEMTS  LDB @,X GET RAM CONTENTS 
CBA MATCH “EM 

F6FF 34. 04 PSHS B 

F721 Al  E@ CMPA rot 

F703 27 @1 BEQ MEMT4 BRA IF OK 

F705 3F Swl ERROR-ERROR-ERR 

F706 63 84 MEMT4 COM @,X MARK LOCATION TESTED 
INX 

F708 30. 8 @1 LEAK? 1% 

F70A 9C 4F CMPX  ENDADR 

F72C 26 EF BNE MEMT3 BRA IF NOT DONE 

F7@E 48 ASLA SHIFT TEST BIT 

F?7OF 24 D2 BCC MEMT1 REPEAT UNTIL ALL BITS TES 

F711 8E F782 LDX #OKTXT ee 

F714 BD FO@1L JSR PRTEXT PRINT "OK 

F717 SE 4D LDe BEGADR GET BEGINNING ADDR. 

F719 4F CLRA 

F71A 97 47 LOOPW2 STA TMPF SET UP START PATTERN 

F71C A? 39684 LOOPW STA @,X STORE N RAM 

F71E 4C€ INCA 

f F71F 26 @1 BNE WCONT TEST FOR TIME TO - 
F721 4C INCA OFFSET PATTERN 
WCONT INX UPDATE POINTER 

F722 30 1 BRAK “1,3. 

F724 90 4F CMPX  ENDADR TEST FOR LAST ADDR. 

F726 26 F4 BNE LOOPW FINIS ING 
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F728 
F72A 
F72D 
F72F 
F731 


F733 
F735 
F737 
F739 
F7SA 
F73C 


F73D 
FV7SF 
F741 
F743 
F745 
F747 
F749 
F74B 
F?4E 
F751 
F754 


F755 
F756 
F757 
F758 
F759 
F?7SA 
F75B 
F75C 
F75D 
F75E 
F7SF 
F760 
F761 
F762 
F763 
F764 
F765 
F766 
F767 
F768 
F769 
FV6A 
F76B 
F76C 
F76D 
FV6E 
FV6F 
F772 


F771 
F772 
F773 
FV74 


LDA 
JSR 
LDX 
LDA 
LDB 
CBA 
PSHS 
CMPA 
BNE 
INCA 
BNE 
INCA 
INX 
LEAX 
CMPX 
BNE 
INC 
LDX 
LDA 
BNE 
LDX 
JSR 
JMP 
SWI 


MEMTXT FCC 


FCC 


FCC 


4:52 


TMP 
PNTBYT 
BEGADR 
TMPF 
@,X 
COMPARE 
B 


rot 
ERR 


RCONT 
UPDATE 


NEWLIN 


/@Q@MEMOR TESTG/ 


/@ 
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GET PATTERN START 
OUTPUT TO CRT 
GET START ADDRESS FOR READ 
GET PATTERN STARTT 


UPDATE PATTERN 
CHECK IF TIME TO 


TEST IT DONE 
NEW START PATTERN 


DO ANOTHER PASS 


CORPORATION / 
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Ll ratee) 4h 
F776 44 
a F777 22 
F778 41 
F779 44 
F?VA 44 
F773 Dz 
F?77C 20 
F?7D 3D 
F?VE <0 
FU7VF SE 


F780 42 OKTXT FCC /@TEST PASSED OKe@7/ 
F781 54 
F782 45 
F783 53 
F784 54 
F785 23 
F786 5a 
F787 41 
F788 53 
F789 53 
F7BA 45 
F78B 44 
F78C 20 
F78D 4F 
F?8E 4B 
F?8F 42 
@ irs 55 


FFF6 ORG 9FFF6 


FFF6 F@11 FIRQ1 FDB FIRQA 
FFF8 FOOD IRQ1 FDB IRQ1A 
FFFA FOBB SWI FDB BKENTR 
FFFC FOSS NMI FDB SERINI 
FFFE FQO8 RES FDB RESTRT 


END 
NUMBER OF SOURCE LINES = 1636 
TOTAL ERRORS = @ TOTAL WARNINGS = a 


\ 


TITLE MTD * MAG TAPE DIAGNOSTIC i 
SENT MTD, .~DCOM,ERMSG 
.EXTD .CFRM,.DFRM 


»~NOMAC 1 


SIFFS TST ITSP DSTI TTI II TT ITISIIST IIT IIIT IIIT IIIT ITI IF DISD FID IT ITIP TISPI IIIS 
; 

> PATTERN PARAMETERS 

’ 

NPAT= 3 3 # OF PATTERNS 

PATI1= 155555 > PATTERN 1 

PAT2= 129-52 ; PATTERN 2 

PATS= Oo20e" >; PATTERN 3 

PAT4= QOOVLO ; PATTERN 4 

PATS= tact (ae ; PATTERN 5 


MTRD= @ >; READ 

MTRW= A > REWIND 

MTRDS= 2 ; READ STATUS 
MTSFW= 3 3 SPACE FORWARD 
MTSBW= 4 3 SPACE BACKWARD 
MTWR= be ; WRITE 

MTWRE= 6 > WRITE EOF 
MTERS= 7 3 ERASE 

’ 

SFFFITIFIIIIV FIST I PDT TDD D TTDI II TI DTTP IIIIT ISIS PFT IIIITIIOI ST IPT PI IIIIIIN DODD 
’ 

> MAG TAPE STATUS BITS 


’ 

SRW= 1B2 ; TAPE IS REWINDING 
SILGL= 1833 3 ILLEGAL 

SEOT= 136 > END OF TAPE MARK 

SEOF= 1B7 » END OF FILE MARK 

SBOT= 1B8 3 BEGINNING OF TAPE MARK 
SLOCK= 1813 » WRITE LOCK 

SRDY= 1B15 3 UNIT READY 


SIFT IIIIISIITIFISIFIPITIVIIISIIISIIFIIIIISIPIFTIFOFIVIFIIFTIFIFIPPIIIITIFIFIITI TITS 


RECSZ= 256. 3 RECORD SIZE 

NRTRY= 10. > # OF RETRIES 

DCNT= 10. 3; DELAY COUNT 

; CODE FOR LINE FEED 

3 CODE FOR CARRIAGE RETURN 

- CMSK= oe 3 ADDRESS OF RTOS CURRENT MASK 
’ 


> DEFINITION OF RUN-TIME STACKS 


bo] 
CHTTO= UTMP ; CHANNEL FOR CONSOLE OUTPUT 
CHLPT= CHTTO-1 ; CHANNEL FOR LINE PRINTER 
@ scr CHLPT-1 ; PASS COUNT 
~RJEC 
SRERREREERUSREEORSEORSOSEOCESSOSOSRSESOEOSOOSOOSOOR RES OSOOSEOLORELOSSOLESLE 
; 
; MACROS TO PROVIDE CODING OF ERROR DETECTION FUNCTIONS. 
; PROCEDURE FLOW FOR AN FRROR DETECTION FUNCTION: AyA 
; CORPORATION 
; ESET TYPE 


/ 


; JMP <NRM> yNORMAL RETURN 
3 EMSG MESSAGE 1 
EMSG “MESSAGE 2° 
EMSG “MESSAGE N° 
ELOOP <ADR> 3 OPTIONAL 
EHALT 3 REQUIRED 


eeeecoeosee ee eeeeeeeeeve 
FIIIIIIIIDD IFIP PIPIPIIHPIIIPIDIID 


CALL SEQUENCE: 

ESET TYPE 
TYPE 
TYPE 


U6 IS USED FOR “LOOP 


OO SH CO we 8S we We SS SO we SO we We we WO we 8H SO we SS WO w 


IF U6 > @, 
LOOP=* "=f 
NLOOP= @ 
-MACRO ESET 
LDA 2,= 1 
MOVAU 2,6 


we 
we 
‘we 
we 
we 
we 
~we 
we 
we 
we 
woe 
~ee 


ERROR MACRO TO LOOP ON ERROR 
CALL SEQUENCE: 


we we we SO we we we we FO 


ELOOP ADDRESS 
-MACRO ELOOP 
LDA 1,@.DCOM 
BITI 18B1,1,SZR 
JMP LR$ 
MOVUA 6, 
CMPI LOOP,2,SZR 
IMP LL$ 
EMSG = “LOOP~ON-FRROR’ 
ADC 2,0 
MOVAU 2,6 
LL$: JMP@ 41 
1 
ERS= 
% 
EJEC 
PERETRE ODOT OLOSOLOSOCOSEOEOESS: 


LOOP, FUNCTION WHICH USES 
NLOOP, FUNCTION THAT DOES NOT USE “LOOP ON ERROR’ 


° 
’ 
e 
, 


“ee 


Noo We WO we We we 


~e 


we 


ee se eeoeeee 
PIFITIFIVIIIIPIFIIFIIIIIIIIIDD 


se 
IIIIIIFIID x9? 


MACRO TO SET-UP AN ERROR DETECTION FUNCTION 


“LOOP ON ERROR” FEATURE 


ON ERROR’ FLAG; 

IF U6 = ©, FUNCTION DOES NOT USE “LOOP ON ERROR” FEATURE 
FUNCTION DOES USE “LOE” AND FIRST TIME 

IF U6 < @, FUNCTION DOES USE “LOF’ AND NOT FIRST TIME 


“LOOP ON ERROR’ 
NOT “LOOP ON ERROR’ 


GET FUNCTION TYPE 
U6 = TYPE 
FISSIIITIFISIISISISIIISISIIISISSIIIISIISS ITD 
GET SWR 

IF(SKIP “LOOP ON ERROR’) 

RETURN 


ELSE, GET “LOOP ON ERROR” FLAG 
IF(.NOT. FIRST TIME) 
THEN GO “LOOP ON ERROR’ 


FLAG = -1 


LOOP ON ERROR 


ERROR MACRO TO PRINT AN ERROR MESSAGE 


EMSG “TEXT” <,NUMBER> 


; 

’ 

; 

3 

» CALL SEQUENCE: 
’ 

b 

; 

-MACRO EMSG 
JMP MCS 
©+1*2 

‘ N 1 


° 
’ 
e 
? 


GOTO PRINT MESSAGE CODE 
BPNT TO MESSAGE 


Al | CORPORATION / 


~ 


TXT 1 ; TEXT ITSELF 
.IFE . ARGCT-2 ; IF NUMERIC PORTION 
MBS: -BLK 3 ; 6-BYTE BUFFER 
~ ENDC 
TX? “<LFD><CR>’ 3; TERMINATE MESSAGE 
MES=, ; END OF MESSAGE 
.TXTN @ 
MLS: MES-MS$*2 ; LENGTH OF MESSAGE 
.IFE -ARGCT=2 ; IF NUMERIC PORTION 
MAS: MBS ; ADDRESS OF BUFFER 
-ENDC 
, 
MC$ STA @,UACG,3 3; SAVE AC’S 
STA ft, UAC1 3 
STA 2,UAC2,3 
MOVUA 6,2 ; GET “LOOP ON ERROR’ FLAG 
INC# @,9,SNR ; IF(FLAG = -1) 
IMP MRS ; THEN RETURN 
.IFE ~ARGCT-2 ; IF NUMFRIC PORTION 
LDA @, 2,3 ; GET NUMBER FROM STACK 
LDA 1,MAS ; GET ADDRESS OF CONVERSION BUFFER 
JSRG ~BOCT ; CONVERT BINARY TO OCTAL 
~ENDC 
LDA @,MM$ ; GET BPNT TO TEXT 
LDA 1,ML$ ; GT LENGTH OF MESSAGE 
JSRG@ .EMSG ; PRINT THE MESSAGE 
MR$= : ; RETURN 
% 
. ZREL 
-EMSG: ERMSG ; ADDR. OF EMSG ROUTINE 
NREL 
ERMSG: STA 3,@UFP ; SAVE RETURN ADDRESS 
LDA 3,@.DCOM ; GET SWR 
BITI 1B2,3,SZR ; IF(PRINT OUT TO CONSOLE) 
JMP EMLPT 
LDA 3,UFP ; RESTORE FP 
LDA 2,CHTTO,3 ; THEN: DO. TT «I 
~SYSTM 
~WRS CPU 
JMP o+1 
~EJEC 
EMLPT: LDA 3,@.DCOM ; GET SWR 
BITI 1B5,3,SNR ; IF(PRINT OUT TO LPT) 
JMP EMRET 
LDA 3,UFP ; RESTORE FP 
LDA 2,CHLPT,3 ; THEN DO IT ! 
~SYSTM 
~WRS CPU 
JMP e+1 
EMRET: LDA 3,UFP ; RESTORE FP 
RETSR ; RETURN SUBROUTINE 


ROUTINE TO CONVERT BINARY TO OCTAL ASCII 


( 


CALL SEQUENCE: 


ACQ = BINARY NUMBER 
ACi = ADDRESS OF 6-BYTE BUFFER FOR OCTAL 
JSR -BOCT 


Nee we OO wee we We ee we we 


«MACRO DIGIT 


MOVUA 4,@ > GET BINARY NUMBER 

MOVZR Go 3 SHIFT OUT 3 BITS AlA 

M A) CORPORATION J 
MOVZR © fe 


ANDI 7 0 ; MASK OFF BINARY DIGIT 

r ADDI 68 ,@ ; CREATE ASCII DIGIT i 

% 
-ZREL 
-BOCT: BNOCT 

~NREL 

@ ror: STA 3 ,@UFP >; SAVE RETURN ADDRESS 
LDA 3 ,UFP 7 RESTORE FP 
MOVAU @,4 ; U4 = BINARY NUMBER 
MOVAU pe ; U5 = BUFFER ADDRESS 
ANDI 7,0 > MASK OFF 6TH BINARY DIGIT 
ADDI 62 ,@ 3; CREATE 6TH ASCII DIGIT 
MOV @,1 ; SAVE 6TH DIGIT 
DIGIT > GET STH DIGIT 
MOVS 0, ; PACK WITH 6TH DIGIT 
ADD @,1 
STATIU ieee te > STORE DIGIT PAIR IN BUFFER 
DIGIT ; GET 4TH DIGIT 
MOV @,1 3; SAVE 4TH DIGIT 
DIGIT 3 GET SRD DIGIT 
MOVS 2 ,@ > PACK WITH 4TH DIGIT 
ADD @,1 
STAIU i ts5 > STORE DIGIT PAIR IN BUFFER 
DIGIT > GET 2ND DIGIT 
MOV apr 3; SAVE 2ND DIGIT 
DIGIT + GET  ASTCBIGLT 
MOVS 2 ,o 3 PACK WITH 2ND DIGIT 
ADD @,1 
STAIU 14255 3 STORE DIGIT PAIR IN BUFFER 
JMP @UPC,S i} RETURN SUBROUTINE 
-EJEC 


we 
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=e 
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ERROR MACRO TO PRINT A STRING OF BINARY NUMBERS IN OCTAL 
CALL SEQUENCE: 
ENUM NADDR ,NCNT 
NADDR = ADDRESS OF NUMBER STRING 
NCNT = # OF BINARY NUMBERS TO CONVERT TO OCTAL 


THE MAXIMUM LENGTH OF NUMBER STRING IS 10. 


‘Oe we SO we we Oe OO we 8 OS we WO 


-MACRO ENUM 
JMP NC$ ; GOTO PRINT NUMBER CODE 
NMS : .+1*2 ; BPNT TO NUMBER STRING 
NS$= . . ; START OF NUMBER STRING 
.DO 2 ; FOR EACH NUMBER 
. BLK 3 3; ALLOCATE 6~BYTE BUFFER 
ere e ; TERMINATE WITH SPACES 
~ENDC ; NEXT NUMBER 
-DXTN ' 4 
sTxr “<LFD<CR>” ; TERMINATE NUMBER STRING 
-TXTN @ 
NES= : ; END OF NUMBER STRING 
NLS: NES-NS$¥*2 ; LENGTH OF NUMBER STRING 
9 
@.: STA @,UACO,3 3; SAVE AC’S 
STA 1,UAC1i,3 
STA 2, UACS;S 
LDA 7 ae Oe ; U6 = NADDR 
MOVAU 2,6 | 
ULDA 7 == ; U7 = -NCNT 
K LDA 1,NM$ > GET BPNT TO NUMBER strinchel A CORPORATION 


M me 2, + CONVERT TO ADDRESS 


NNS 3 L @ 8.6 ; GET A NUMBER 
UINC 6 > INC NADDR ‘ 
JSRG@ - BOCT >; CONVERT BINARY TO OCTAL 
MOVUA 5k > RESTORE ADDRESS OF BUFFER 
ADDI 4,1 ; INC TO NEXT NUMBER BUFFER 
UINC 7 3 INC LOOP COUNT 
MOV 2,2,S5ZR 3 CONVERT NUMBERS UNTIL DONE 
JMP NNS 
LDA @,NM > GET BPNT TO NUMBER STRING 
LDA 1,NL$ » GET LENGTH OF NUMBER STRING 
JSRE - EMSG > PRINT THE NUMBER STRING 


FIFIFIFIFITITISFIIFITIFITISIIIFIIFSIOSIIFIIISSSTPISIFIISSDIIISSIDD 
, 
; ERROR MACRO FOR ‘HALT ON ERROR’ 
, 

-MACRO EHALT 

LDA 1,@.DCOM 3 GET SWR 

BITI 1B6,1,SNR 

JMP HRS 

EMSG “HALT~ON-ERROR<LF><CR>’” 

HALT 

eNOMAC @ 
HR$= ° 
~NOMAC 1 


MACRO TO WAIT FOR A KEY STROKE 
CALL SEQUENCE: 


WIKEY 
AC@ IS DESTROYED 


we We we we We we we oe 


eMACRO WTKEY 

-SYSTM y WAIT FOR A KEY STROKE 
-GCHAR 

JMP oi 3; ERROR RETURN (NEVER TAKEN) 


FIITIIITIFITIITIIITD TITTIFITIISIITIFIITIFSISIFSIIIIIII SIDI ISEIIIIIPITIIIFIIIIIDD 
MACRO TO PERFORM FREE FORMAT TAPE I/O 
CALL SEQUENCE: 

MTDIO COMMAND<,ADDRESS ,COUNTD> 


<ERROR RETURND 
<NORMAL RETURN>D 


we SO De we we We we OO we we we GO 


ACZ= —- STATUS 
.MACRO MTDIO 

STA 1,UAC1,3 5 SAVE AC1, AC2 

STA 2,UAC2,3 

LIFE .ARGCT-3 ; IF 3 ARGUMENTS 

LDA 0,="3 ; GET DATA COUNT 

LDA J=77VP } GET 12-BIT MASK 

AND By1 ; MASK COUNT T0 12 BITS 
LDA 0,72 ; GET DATA ADDRESS 

~ ENDC 7 

LDA 2,= 1 GET COMMAND CODE 


we we 


JSR ~MTIO 


PERFORM MAG TAPE I/0 9 9 
| CORPORATION / 


; MACRO TO DELAY “DCNT” MSECS 


-MACRO DELAY 


LDA 1,=DCNT GET DELAY COUNT 
-SYSTM DELAY 
- DELAY 
HALT + ERROR RETURN 


~EJEC 
& ; ROUTINE TO PERFORM FREE FORMAT TAPE I/@ 
CALL SEQUENCE: 


ACG= DATA ADDRESS 
ACi= WORD OR RECORD COUNT 
AC2= COMMAND 


JSR@ -MTIO 
<ERROR RETURND 
<NORMAL RETURND 


we SO we we Se we we SO YO we we we 


ACO= STATUS RECISTER FOR BOTH NORMAL AND ERROR RETURN 
.ZREL 
.MTIO: MTIO 
NREL 
MTIO: STA  3,QUFP ; SAVE RETURN ADDRESS 
LDA 3, JOTBL ; GET ADDR. OF I/0 TABLE 
AgD.*- “2's ; INDEX INTO TABLE wITH COMMAND 
JMP 02,3 ; DISPATCH TO FUNCTION 
IOTBL: 441 ; ADDRESS OF 1/0 TABLE 
MTIOL 5 READ 
MTIO6 ; REWIND 
MTIO8 ; READ STATUS 
MTIO2 ; SPACE FORWARD 
& MTIO2 ; SPACE BACKWARD 
MPTO1 ; WRITE 
MTIO3 ; WRITE EOF 
MTIO3 ; ERASE 
MTIO1: DOB MTA ; LOAD MEMORY ADDRESS COUNTER 
MTIO2: NEG 1,1 ; NEGATE AND LOAD WORD COUNTER 
DOC 1;MTA 
MTIO3: ADDZL 2,2 ; BUILD AND ISSUE COMMAND TO MAG TAPE 
MOVZL 2,2 


DOAS 2,MTA 


MTIO4: DELAY DELAY (GIVE DMON A CHANCE TO RUN) 


~oe wo 


SKPDN MTA WAIT FOR COMPLETION OF COMMAND 
JMP MTI04 
DIA @,MTA + READ STATUS 

MTIOS: LDA 5,UFP > GET FRAME POINTER 
STA ®,VACZ,3 ; RETURN STATUS TO CALLER 
MOVL @,9,S2ZC 3 IF ERROR BIT SET 
JMP +4 3 THEN GO RETURN 
LDA 2,UPC,5 » UPC = UPC +1 
INC eQe 
STA Z2,0PE 45 
RETSR 3 RETURN TO CALLER 

MTIOG6: ADDZL AS » BUILD AND ISSUE COMMAND 
MOVZL Bat 

Mm DOAS 2,MTA 

DELAY 

MTIO7: DIA @,MTA 3 WAIT FOR REWIND COMPLETE 
BITI SRW,9,52R 
JMP MTIO? 


JMP MTIO5 > GO RETURN TO CALLER 
\ MTIO8: DIA @,MTA y READ STATUS (A a) CORPORATION 
IMP MTI05 ; GO RETURN TO CALLER 


PAT: : ; PATTERN TABLE : 
PATI 
PAT2 
PAT3 
PAT4 
#} PATS 
BUFF: BUFF ; ADDRESS OF I/O BUFFER 
bd 
. NREL 
MTD: UI 3,1920 ; INTIALIZE USER STACK 
LDA @,CHTTO,2 ; COPY CHANNEL FOR TTO 
STA @,CHTTO,3 
LDA ®,CHLPT ,2 ; COPY CHANNEL FOR LPT 
STA ®,CHLPT,3 
INTDS ; DISABLE INTERRUPTS 
LDA Q,=42 ; GET MAG TAPE PRIORITY MASK 
STA @,.CMSK ; DISABLE MAG TAPE INTERRUPTS 
INTEN ; ENABLE INTERRUPTS 
ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
y 
EMSG "MAG TAPE DIAGNOSTIC. FOR_ “SMART’ CONTROLLFR<12><15>" 
, 
SUB % 2 ; RESET PASS COUNT 
STA Q,PASCT,3 
MTDRS: LDA 2,-DCOM ; GET ADDRESS OF COMMON BLOCK 
LDA @,4,2 ; GET # OF SUBTESTS 
NEG g ,2 ; SET LOOP COUNT 
MOVAU 2,4 ; UAC4 = -DNTST 
LDA Q,5,2 ; GET ADDR. OF SUBTEST ENTRY POINT TABLE 
® MOVAU @,5 3; UACS = DSENT 
MIDLP: LDAIU 0,2,5 ; GET SUBTEST ENTRY POINT 
MOVL @,2,SNC ; IF(RUN FLAG IS RESET) 
IMP MTDSK ; SKIP SUBTEST 
MOVZR 3,0 ; MASK OFF RUN FLAG 
STA @ MIDST ; SET UCALL ADDRESS 
LDA Q,CHTTO,3 ; GET CHANNEL FOR CONSOLE OUTPUT 
LDA 1, CHESTS ; GET CHANNEL FOR LINE PRINTER 
JSRC .CFRM ; UCALL SUBTEST 
MTDST: @ ; UCALL ADDRESS 
MTDSK: UINC 5 ; INC TO NEXT SUBTEST 
UINC 4 ; INC LOOP COUNT 
MOV 2,2,SZR ; RUN ALL SUBTESTS 
JMP MTDLP 
LDA @,PASCT,3 ; INC PASS COUNT 
INC @,@ 
STA @,PASCT,3 
LDA @,@.DCOM ; GET SWR 
BITI 1B4,2,SNR ; IF(.NOT. PRINT PASS COUNT) 
IMP MTDRS ; THEN RESTART 
>] 
EMSG “PASS COUNT_ ‘ PASCT 
3 
JMP MTDRS ; RESTART DIAGNOSTIC 
& -EJECT 
PtP STeCC CCC CceSec creer ere r secre rece r ee sereseteresereeceseererereeeseeseree: 
? 
; COMMON BLOCK 
, 
DCOM: 2 ; DSWR AYA 
MT ; A Fi CORPORATION L 
PERR : TDRRR 


DCOM: DCOM 3 ADDRESS OF COMMON BLOCK 
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SUBTEST ENTRY POINTS 


we we 20 we OO 0 


NREL 
STENT: MTDSZ1 
MTDO2 


3 LOOP BACK 

3; VALID STATUS 
MTDS3 ; BUSY/DONE 
MTDO4 > INTA 

MTDO@S 3; WRITE PROTECT 
MT DSE 3; BOT/REWIND 
MTDO? 3 EOF 

MTDS8 > RELIABILITY 


ee 
STFS TTT T TITS TPIT IIPIIPIFISIISFIIITIISSIFIIIFSIIIVIITIIVIFIFIIIFIPIISIIIIIITIIFGD 


~we 
~ 


SUBTEST NAMES 
M 


: NAM@1%*2 
NAM@2*2 
NAMO3*2 
NAM@4%*2 
NAM25%*2 
NAM@6*2 
NAMO7*2 
NAM@8*2 


~NOLOC 1 
NAM@1: .TXT “LOOP BACK ?7??<CR>° 
NAM@2: «TXT “VALID STATUS ?2??77<CRD>” 
NAM@S: .TXT “BUSY/DONE (ERASE) 727??<CRD’ 
NAM@Z4: .TXT “INTERRUPT ACKNOWLEDGE ??7?7?<CR>’ 
NAM@5S: .TXT “WRITE PROTECT/ILLEGAL/READY ?7??<CR>° 
NAMZ6: .TXT “BOT/REWIND/SPACE BACKWARD/ILLEGAL ?77?7<CR>’ 
NAMO?s .TKT “EOF/WRITE/READ ???7?<CR>” 
NAM@8: .TXT “RELIABILITY ?72??<CR>° 
-NOLOC 0 


-EOT 


. 
’ 
. 
’ 


M 


M 


M 


M 


LOOP BACK TEST 


USUBR MTD91,2 ; ENTRY POINT, 2 TMPS 
STA @,CHTTO,3 ; SAVE CHANNELS 
STA 1,CHLPT,3 
ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
EMSG “RUN. LOOP_ BACK_ TEST’ 
NIOC MTA ; CLEAR MAG TAPE 
LDA 2 ,=20 ; SET LOOP BACK MODE 
DOA 2,MTA 
SUB 2,2 ; WRITE ALL ZFRO’S 
UCALL M1SUB 
ADC 2,2 ; WRITE ALL ONE’S 
UCALL M1SUB 
SUBZL 2,2 ; WRITE EACH BIT = ONE 
1LOP: UCALL MiSUB 
MOVZL  2,2,SNC 
JMP MLLOP 
LDA %,@.DCOM ; GET SWR 
BITI 1B7,0,SNR ; IF(.NOT. PRINT PASS) 
JMP MIRET > THEN RETURN 
EMSG “COMPLETE. LOOP_ BACK. TEST’ 
1RET: URET 
LOOP BACK SUBROUTINE 
DAT=  CHLPT-1 ; DATA SENT 
DAT= SDAT-1 ; DATA RECEIVED 
USUBR M1SUB,4 ; ENTRY POINT, 4 TMPS 
STA %,CHTTO,3 ; SAVE CHANNELS 
STA 1,CHLPT,3 
STA 2,SDAT,3 ; SAVE SEND DATA 
ESET LOOP ; SET “LOOP ON ERROR’ 
1SLP: LDA 2,SDAT,3 ; RESTORE SEND DATA 
DOB 2,MTA ; SEND ON DOB 
DOC 2,MTA ; SEND ON DOC 
DELAY ; 
DIB @ MTA ; RECEIVE ON DIB 
SNE @,2 ; IF MATCH 
JMP MiSC ; THEN GO RECFIVE DIC 
STA Q,RDAT,3 ; PUT RECRIVE DATA ON STACK 
EMSG “DATA. SENT_ ON_ DOB =_ %,SDAT 
EMSG “DATA. RECEIVED. ON. DIB_ =_ “,RDAT 
ELOOP MiSLP 
EHALT 
1SC: ~ BDA 2,SDAT,3 ; RESTORE SEND DATA 
DIC @ MTA ; RECEIVE ON DIC 
SNE @,2 ; IF MATCH 
JMP M1SRT ; THEN GO RETURN 
.EJEC 
STA @,RDAT,3 ; PUT RECEIVE DATA ON STACK 
EMSG “DATA SENT. ON. DOC. =_ ’%,SDAT 
EMSG “DATA. RECEIVED. ON. DIG_ =_ ’,RDAT 
ELOOP MiSLP 
EHALT 
1SRT: URET ; RETURN 


> VALID STATUS TEST 


Ala CORPORATION. 


USUBR 
STA 
STA 
ESET 
EMSG 
NTOC 
ESET 


DIA 
LDA 
COM 
AND 
LDA 
XOR 
MOV 
JMP 
STA 
EMSG 
ELOOP 
EHALT 
’ 
M2VAL: ESET 
LDA 
Brtt 
JMP 
EMSG 


M2RET: URET 


U 


MTD@2 ,3 

@,CHTTO,3 
1,CHLPT,3 
NLOOP 
“RUN 
MTA 

LOOP 


@,STAT,S 


) 


VALID. STATU 


wo we 


Oo woe we Oe we 


“INVALID. STATUS _ 


MZLOP 


NLOOP 
@,@.DCOM 
1B7,8,SNR 
M2RET 


we We woe OO 


“COMPLETE _ VALID_ 


: 
; BUSY/DONE (ERASE) TEST 


ENTRY POINT, 35 TMPS 
SAVE CHANNELS 


SET NOT “LOOP ON ERROR’ 
S_ TEST’ 
CLEAR MAG TAPE 


SET “LOOP ON ERROR” 
READ STATUS 


BOT FLAG IS A “DON’T CARE” 


GET VALID STATUS 
TURN OFF ALL THE BITS 
IF(VALID STATUS) 

THEN GO RETURN 

PUT STATUS ON STACK 
= ’,STAT 


SET NOT “LOOP ON ERROR’ 
GET SWR 

IF(.NOT. PRINT PASS) 
THEN RETURN 


STATUS. TEST” 


USUBR MTD@3,2 ; ENTRY POINT, 2 TMPS 
STA ®,CHTTO,3 ; SAVE CHANNELS 
cul STA 1 CHLPT ,3 

ESET NLOOP * SET NOT “LOOP ON ERROR’ 
EMSG “RUN _ BUSY/DONE_ (ERASE) _ TEST’ 
ESET LOOP ; SET “LOOP ON ERROR’ 

5] 

M3LP1: NIOC MTA ; CLFAR MAG TAPE 
SKPDN MTA ; IF(DONE = ZERO) 
JMP M3B1 ; THEN GO TEST BUSY 
EMSG *"NIOC_ DID_ NOT_ CLEAR_ DONE_ FLAG’ 
ELOOP M3LP1 
EHALT 
-EJEC 

M3B1: SKPBN MTA ; IF(BUSY = ZERO) 
JMP MSLP2 ; THEN GO START MTA AND TEST AGAIN 
EMSG “NIOC_ DID_ NOT_ CLEAR_ BUSY_ FLAG’ 
ELOOP M3LP1 
EHALT 

, 

M3LP2: LDA @,=MTERS ; GET ERASE COMMAND 
ADDZL 0,2 ; BUILD AND ISSUE COMMAND 
MOVZL 2,2 
DOAS o MTA 
SKPBZ MTA ; IF(BUSY = NONZERO) 
IMP M3D1 ; GO TEST DONE = ZERO 
EMSG “DOAS_ DID_ NOT_ SET_ BUSY_ FLAG’ 

& ELOOP M3LP2 

FHALT 

’ 

M3D1: SKPDN MTA ; IF(DONE = ZERO) 
IMP M3WAT ; THEN GO WAIT FOR 2 SEC 
EMSG “DOAS_ SET DONE_ FLAG’ 

N ELOOP M3LP2 A A CORPORATION 


EHALT 


MSWAT: LDA ...'1,=200@. 3; GET 2 SEC COUNT 
~SYSTM ; DELAY 2 SEC 
- DELAY 
HALT ; ERROR RETURN 
SKPBN MTA ; IF(BUSY = ZERO) 
JMP M3D2 ; GO TEST DONE = NONZERO 
e EMSG “ERASE COMPLETE  DID_ NOT_ CLEAR_ BUSY’ 
ELOOP M3LP2 
EHALT 
M3D2: °SKPDZ MTA ; IF(DONE = NONZERO) 
JMP M3PAS ; THEN PASS TEST 
EMSG “ERASE COMPLETE. DID_ NOT_ SET_ DONE’ 
ELOOP M3LP2 
EHALT 
’ 
M3PAS: ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
LDA @,@.DCOM ; GET SWR 
BITI 1B7,9,SNR ; IF(.NOT. PRINT PASS) 
JMP MSRET ; THEN RETURN 
EMSG “COMPLETE  BUSY/DONE_ TEST’ 
M3RET: URET 
eEJEC 


; 
> INTERRUPT ACKNOWLEDGE TEST 


’ 
DEVCD= CHLPT-1 
- EXTN 
’ 
USUBR 
STA 
STA 
ESET 
# EMSG 
INTDS 
IORST 
LDA 
LDA 
XOR 
MSKO 
JSR 
LDA 
STA 
INTEN 
JMP 
JMPG@ 
M4MSK 
M4SUB: SAVE 
LDA 
ADDZL 
MOVZL 
DOAS 
SKPDN 
JMP 
NIOS 
SKPDN 
JMP 


® NIOS 
RETSR 


M41S1: .+f 
LDA 
STA 
[Sz 


- INTP 
MTDO4,3 


®,CHTTO,3 
1,CHLPT ,3 


NLOOP 


“RUN. INTERRUPT_ 


@,=40 
1,.CMSK 
B,1 

1 

M4SUB 
2,M4IS1 
2,1, 


+1 


eo we “we we 


we 


SSO SO we Oe SO we SO 28 we Oe OP we 


’ 
e 


DEVICE CODE 
RTOS INTERRUPT SERVICE ADDRESS 


ENTRY POINT, 3 TMPS 
SAVE CHANNELS 


SFT NOT “LOOP ON ERROR’ 


ACKNOWLEDGE TEST’ 


DISABLE INTERRUPTS 

I/O RESET 

GET MAG TAPE PRIORITY MASK 
GET RTOS CURRENT MASK 

OR OUT MAG TAPE MASK 
ENABLE MAG TAPE INTERRUPTS 
START MTA AND RTC 

GET ADDRESS OF INT. SRV. 
SET INTERRUPT VECTOR 
ENABLE INTERRUPTS 

WAIT FOR INTERRUPT 

GO MASK OUT MTA AND TRY AGAIN 


SAVE MACHINE STATE 
BUILD AND ISSUE ERASE COMMAND 


WAIT FOR COMPLETION OF ERASE 


START RTC 
WAIT FOR FIRST TICK 


RESTART CLOCK 
RETURN SUBROUTINE 


ADDRESS OF INTERRUPT SERVICE 
RESTORE RTOS INTERRUPT VECTOR 


INC. INTERRUPT P.C. 


INTA. Oo. 3 INTERRUPT ACKOWLEDGE 


i Re CORPORATION 


CMPI 
JIMP@ 
CMPI 
JMP 

INTEN 
EMSG 
EHALT 
JMP 

~EJEC 
M4R1IV: .INTP 
M4ER1: INTEN 
STA 

EMSG 

EHALT 
M4RT1: JMP 
»M4SB: 
M4MSK : 


M4SUB 
LDA 
MSKO 
JSRG 
LDA 
STA 
INTEN 
JMP 
JMP 
M4152: .+1 
LDA 
STA 
SZ 
INTA 
IORST 
CMPI 
JMPG 
INTEN 
EMSG 
EHALT 
JMP 
M4PAS: NIOS 
INTEN 
ESET 
LDA 
BITI 
JMP 
EMSG 
URET 
eEJEC 


M4RET 3 


e 
, 


; WRITE PROTECT/ ILLEGAL/ READY TEST 


j 
MSTAT= 


IF(MTA CAUSED INTERRUPT 


@ 2 5 THEN SUCCESS, RETURN FROM INT. SRV . 
RTC, @,SZR 3 IF(RTC CAUSED INTERRUPT) 
M4ER1 


; THEN FAILURE, ENABLE INTERRUPTS 


“MAG_ TAPE  DID_ NOT_ GENERATE INTERRUPT’ 


M4RT1 ; GO RETURN FROM SUBROUTINE 
; RTOS INTERRUPT VECTOR 
; ELSE, FAILURE, ENABLE INTERRUPTS 
Q,DEVCD,3 ; PUT DEVICE CODE ON STACK 
“WRONG "INTA” DEVICE. CODE. =_ “,DEVCD 
M4RET > GO RETURN FROM SUBROUTINE 
2,=40 > MASK OUT MAG TAPE 
2 
.M4SB > START MTA AND RTC 
2,M4IS2 > GET ADDRESS OF INTERRUPT SERVICE 
2°1,0 3 SET INTERRUPT VECTOR 
; ENABLE INTERRUPTS 
' ; WATT FOR INTERRUPT 
M4PAS > GO REPORT PASS 
; ADDRESS OF INT. SRV. 
2,M4RIV > RESTORE RTOS INTERRUPT VECTOR 
2°1,0 
0.0 ; INC. INTERRUPT P.C. 
2 ; INTERRUPT ACKOWLEDGE 
> I/O RESET 
MTA,@,SZR ; IF(MTA DID NOT CAUSE INTERRUPT) 
‘ ; THEN SUCCESS, RETURN FROM INT. SRV. 
; ELSE, FAILURE, ENABLE INTERRUPTS 


“MASK. OUT_ FAILURE’ 


M4RET 3; GO RETURN FROM SUBROUTINE 
RTC ; START RTC 

3; ENABLE INTERRUPTS 
NLOOP 3; SET NOT “LOOP ON ERROR’ 
@,@.DCOM ; GET SWR 
1B7,@,SNR IF(.NOT. PRINT PASS) 
M4RET THEN RETURN 
“COMPLETE INTERRUPT. ACKNOWLEDGE TEST’ 


UACZ > MAG TAPE STATUS ON THE STACK 
, 

USUBR MTD@5,2 > ENTRY POINT, 2 TMPS 

STA @,CHTTO,3 > SAVE CHANNELS 

STA 1gGHLPT ,3 

® ESET NLOOP SET NOT “LOOP ON ERROR’ 

EMSG “RUN_ WRITE_ PROTECT /_ ILLEGAL/ READY TEST’ 
’ 

EMSG “REMOVE __ TAPE. CARTRIDGE’ 

NIOC MTA 

DIA @,MTA 

MOVR# @ 9,820 WAIT FOR “UNIT READY’ TO | | eee 

JMP 72 


LDA 
-OYSTM 
- DELAY 
HALT 


EMSG 
DIA 
MOVR# 
JMP 


BITI 
JMP 
EMSG 
EHALT 


’ 

MOWR: MTDIO 
JMP 
EMSG 
EHALT 


5] 

M5WR1: 
IFN 
BITI 
IMP 
EMSG 
EHALT 
» ENDC 
sEJEC 

M5wWR2: .MTDIO 
JMP 
EMSG 
EHALT 


’ 

MOWRS: 
IFN 
BITI 
JMP 
EMSG 
EHALT 
- ENDC 


’ 

MSER: MTDIO 
JMP 
EMSG 
EHALT 


’ 

MSER1: 
~ IFN 
BITI 
JMP 
EMSG 
EHALT 
- ENDC 


’ 

MSPAS: EMSG 
DIA 
MOVR# 
JMP 
EMSG 
DIA 
MOVR# 
JMP 


ESET 
D 


1 ,=1000. s DELAY 1 SECOND 


‘WRITE PROTECT. TAPE AND  RE-INSERT’ 


@,MTA 

@,,5SNC ; WAIT FOR “UNIT READY” TO GO HIGH 
72 

SLOCK,@,SZR ; TEST “WRITE PROTECT’ HIGH 

MSWR > PASS, GO WRITE AND TEST 


“TAPE DID. NOT_ BECOME. PROTECTED: ”°,MSTAT 


MIWR, BUFF ,4096. 
MSWR1 ; ERROR RETURN 
“WRITE DID. NOT. SET “ERROR” FLAG: %,MSTAT 


g 
SILGL,2,SZR ; TEST “ILLEGAL” FLAG HIGH 
M5wRe2 ; PASS 


“WRITE. DID. NOT SET “ILLEGAL” FLAG: °,MSTAT 


MTWRE ; WRITE EOF 
M5WR3 ; ERROR RETURN 
‘WREOF_ DID. NOT. SET. “ERROR” FLAG: _ °,MSTAT 


Q 
SILGL,@,SZR ST TEST: “LhLwoa SLAG AIGE 
M5ER ; PASS 


‘WREOF_ DID. NOT_ SET_ “ILLEGAL”  FLAG:_ °,MSTAT 


MTERS ; ERASE 
MSER1 ; ERROR RETURN 
“ERASE_ DID_ NOT_ SET_ “ERROR” FLAG:_ °,MSTAT 


g 
SILGL,@,SZR ; TEST “ILDEGAL” FLAG HIGH 
M5PAS ; PASS 


“ERASE_ DID." NOT “SET "ILLEGAL": FLAG: ~ *,MSTAT 


“REMOVE TAPE CARTRIDGE’ 


@,MTA 
@,@,S2C ; WAIT FOR “UNIT READY’ TO GO LOW 

Te 

“WRITE ENABLE TAPE  AND_ RE-INSERT’ 

QMTA 

@,@,SNC $ WAIT FOR ’UNIT READY’ TO GO HIGH 

.-2 

NLOOP ; SET NOT “LOOP ON ERROR’ Ala CORPORATION / 


@.@.DCOM ; GET SWR 


JMP MSRET ; THEN RETURN 


4 EMSG “COMPLETE WRITE. PROTECT/  ILLEGAL/_ READY_ TEST’ N 
M5RET: URET 
. EJEC 
; 
; BOT/ REWIND/ SPACE BACKWARD/ ILLEGAL TEST 
$ 
& USUBR MTDZ6,2 ; ENTRY POINT, 2 TMPS 
STA @,CHTTO,3 ; SAVE CHANNELS 
STA 1,CHLPT ,3 


ESET N LOOP SET NOT “LOOP ON ERROR’ 
EMSG “RUN. BOT/_ REWIND/_ SPACE  BACKWARD/_ ILLEGAL_ TEST’ 


EMSG “REMOVE_ TAPE. CARTRIDGE’ 


NIOC MTA 
DIA @,MTA 
MOVR# @,8,52C ; WAIT FOR “UNIT READY’ TO GO LOW 
JMP “2 
LDA 1 ,=1900. 3 DELAY FOR 1 SECOND 
-SYSTM 
- DELAY 
HALT 
EMSG “WRITE ENABLE  TAPE_ AND_ RE-INSERT’ 
DIA @,MTA 
MOVR# @,@,SNC ; WAIT FOR “UNIT READY’ TO GO HIGH 
JMP <“2 
y 
LDA 2 =e > SET LOOP COUNT 
NEG 252 
MOVAU 244% 3 USE U4 
M6LOP: MTDIO MTERS 3 ERASE TO MOVE OFF BOT 

HALT » ERROR RETURN 

#) UINC 4 3 INC LOOP COUNT 
MOV 2,¢,S52R 3 LOOP UNTIL DONE 
JMP M6LO 


BITI SBOT,2,SNR TEST "BOT" FLAG LOW 


woo woe 


JMP M6TRW PASS, GO TEST “REWINDING™ 
EMSG “BRASE_ DID_ NOT. RESET "BOT" FLAG:  °,MSTAT 
EHALT 
, 
M6TRW: BITI SRW,2,SNR ; TEST “REWINDING FLAG LOW 
JMP M6RW : ; PASS, GO REWIND 
EMSG ““REWINDING' FLAG  IS_ SET_ BEFORE_ COMMAND: _ ”,MSTAT 
EHALT 
5 
M6ORWs LDA @,=MTRW ; GET REWIND COMMAND 
ADDZL 8,0 ; BUILD AND ISSUE COMMAND 
MOVZL @,@ 
DOAS @,MTA 
DELAY ; WAIT FOR “SMART” CONTROLLER 
DIA @ MTA } GET MAG TAPE STATUS 
BITI SRW,%,SZR ; TEST “REWINDING’ FLAG HIGH 
JMP M6wT 3 PASS, GO WAIT FOR COMPLETION 
EMSG “REWIND. COMMAND. DID_ NOT_ SET_ “REWINDING”  FLAG:_ °,MSTAT 
EHALT 
~EJEC 
’ 
Oo. :. LDA 1,=2022. ; DELAY 2 SECONDS 
~-SYSTM 
. DELAY 
HALT 
DIA MTA ; GET MAG TAPE STATUS Ala 
\ ; ST  REWINDING FLAG LOW. ms CORPORATION / 


JMP M6TBT s PASS. GO TEST ROT 


ERALT 
’ i] 
M6TBT: BITI SBOT,2,SZR >; TEST “BOT. FLAS HICH 


JMP M6S BW ; PASS, GO SPACE BACKWARD 
EMSG “REWIND. DONE. DID. NOT_ SET_ “BOT” FLAG:_ ”,MSTAT 
EHALT 

? 

@ 5-5: MTDIO MTSBW,.BUFF,1 5 SPACE BACKWARD 1 RECORD 

JMP M6ER1 ; ERROR RETURN | 
EMSG “SPACE. BW_ DID. NOT SET_ “ERROR” FLAG: °,MSTAT 
EHALT 

, 

M6ER1: BITI SILGL,2,SZR 3; TEST “ILLEGAL” FLAG HIGH 
JMP M6PAS ; PASS 
EMSG “SPACE. BW_ DID_ NOT. SET_ "ILLEGAL" FLAG:  °,MSTAT 
EHALT 

y 

M6PAS: ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
LDA @,@.DCOM ; GET SWR 
BITI 1B7,@,SNR ; IF(.NOT. PRINT PASS) 
JMP M6RET 3; THEN RETURN 


EMSG “COMPLETE. BOT/_ REWIND/_ SPACE_ BACKWARD/_ ILLEGAL TEST’ 
M6RET: URET 


.EJEC 
, 
; EOF TEST 
? 
USUBR MTDO7,2 ; ENTRY POINT, 2 TMPS 
STA @,CHTTO,23 ; SAVE CHANNELS 
STA 1,CHLPT,3 
ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
® EMSG 7RUN. EOF TEST’ 
NIOC MTA 
MTDIO MTWRE WRITE EOF 
NOP ERROR RETURN 


ee we we wo 


BITI SEOF,2,SZR TEST “EOF” BIT HIGH 
JMP M7ERS Pass 2 
EMSG “WREOF_ DID_ NOT_ SET_ “FOR”. FLAG:_ °,MSTAT 
EXALT 
M7ERS: MTDIO MTERS 3 ERASE 
NOP ; ERROR RETURN 
BITI SEOF,®,SNR 3; TEST "EOF" BIT Low 
JMP M?7PAS meass 
EMSG “ERASE_ DID_ NOT_ RESET_ "EOF" FLAG’ 
EHALT 


; 
M7PAS: ESET NLOOP SET NOT “LOOP ON ERROR’ 


LDA @,@.DCOM GET SWR 
BUSI 1B7,9,SNR IF(.NOT. PRINT PASS) 
JMP M7RET THEN RETURN 


hy we “we we Wo 


EMSG “COMPLETE. EOF_ TEST’ 
M7RET: URET 
»EJEC 
? 
; RELIABILITY TEST 


+] 
FILCT= CHLPT-1 FILE COUNT (1ST WORD OF EACH RECORD) 


J 
EFILE= @ > ERROR SUMMARY FILE # 
ERTRY= 1 > ERROR SUMMARY RETRIES 
EPAT= 2 > ERROR SUMMARY PATTERN 
ESTAT= 3 ; ERROR SUMMARY STATUS T : 
ESLEN= 4 » ERROR SUMMARY LENGTH A A CORPORATION 


NREC3 g j TOTAL # OF RECORDS 


‘ NWERP: @ # OF WRITE ERRORS WITH PASS AFTER RETRIES 
NWERF: @ # OF WRITE ERRORS WITH FAIL AFTER RETRIES 
NRERPs @ # OF READ ERRORS WITH PASS AFTER RETRIES 
NRERF: @ # OF READ ERRORS WITH FAIL AFTER RETRIES 


SBGN: SBUFB 
SEND: SBUFE 


BEGINNING OF SUMMARY BUFFER 
END OF SUMMARY BUFFER 


we WO WO we WO ee Wwe 


SPNT: g POINTER INTO SUMMARY BUFFER 
NREL 
USUBR MTD@8 ,5 ; ENTRY POINT, 3 TMPS 
STA @,CHTTO,3 + SAVE CHANNELS 
STA 1 .CHEeT 3 


ESET NLOOP SET NOT “LOOP ON ERROR’ 
EMSG “RUN_ RELIABILITY_ TEST’ 


NIOC MTA 

MTDIO MTRW > REWIND MAG TAPE 

HALT > ERROR RETURN 

LDA @,CHTTO,3 + RESTORE CHANNEL 

LDA 2,oBGN 3 SET ERROR SUMMARY POINTER 
STA 2,0PNT 

SUB Qe + RESET ERROR COUNTS 

STA 2,NREC 3 # OF RECORDS 

STA 2 »NWERP 3; # OF WRITE ERRORS (PASS) 
STA 2,NWERF ; # OF WRITE ERRORS (FAIL) 
STA 2,NRERP ; # OF READ ERRORS (PASS) 
STA 2,NRERF >; # OF READ ERRORS (FAIL) 
STA 2,FILCT,3 ; FILE COUNT = @ 


M8LOP: UCALL WRPAT 
MTDIO MTISBW,.BUFF,@ 


WRITE PATTERN FILE 
SPACE BACKWARD 1 FILE 


, 
? 
NOP 3 ERROR RETURN 
® BITI SBOT ,@,SZR 3 IF(BOT) 
JMP M8R DP 3 THEN GO READ PATTERN FILE 
MTDIO MISFW,.BUFF,1 ; ELSE SPACE FORWARD 1 RECORD 
NOP ; ERROR RETURN 
MERDP: LDA @,CHTTO,3 3 RESTORE CHANNEL 
LDA 2 FLEECES + RESTORE FILE COUNT 
UCALL RDPAT > READ PATTERN FILE 
INC 20 » INC. FILE COUNT 
STA 2oe LEGIT 
JMP M8LOP 3 CONTINUOUS LOOP 


“wan we 


; 
3 CONTINUOUS LOOP: MUST BE ABORTED VIA R OR 0. 
~EJEC 


; 
» SUBROUTINE TO WRITE PATTERN FILE 
; 
CPAT= FILCT-1 
ERRCT= CPAT-1 


CURRENT PATTERN (1-5) 
FRROR COUNT 


~we we 


USUBR WRPAT,5 ENTRY .POINT, 5. IMPS 


we we 


STA @,CHTTO,3 SAVE CHANNELS 
STA 1,CHLPT,S 
STA 2 fl LCT YS § SAVE FILE COUNT 
SUBZL @ ,@ 3 CPAT = 1 
STA @,CPAT,3 
@ oo: LDA 2,PAT 3 GET ADDRESS OF PATTERN TABLE 
LDA @,CPAT,3 > GET CURRENT PATTERN # 
ADD 8,2 3 INDEX INTO TABLE 
LDA @,8,2 > GET PATTERN 
LDA 2,-BUFF 3 GET ADDRESS OF BUFFER fa) 
F 7 ; SET HEADER WORD IN BUFFER CORPORATION 


STA 1.0.2 


WRPFL: INC eye > FILL BUFFER WITH PATTERN 
STA @,0,2 
INC 1,1,52R 
JMP WRPFL 


WRP: MTDIO MIWR, BUFF ,RECSZ 


IMP .+2 ; ERROR RETURN 
JMP WRPSC ; SUCCESS RETURN 
1SZ NWERP 3; INC # OF ERROR WITH PASS 
SUB 2.2 ; ERROR COUNT = 2 
STA 2,ERRCT,3 
WRTRY: MTDIO MTSBW,.BUFF,1 $ SPACE BACKWARD 1 RECORD 
HALT 3; ERROR RETURN 
MTDIO MTWR,.BUFF,RECSZ 
JMP .+2 ; ERROR RETURN 
IMP WRPUD ; SUCCESS RETURN 
LDA 2,ERRCT,3 ; IF ERROR COUNT = @ 
MOV 2,2,S52R 
JMP WRP41 
LDA 2,SPNT ; THEN UPDATE ERROR SUMMARY DATA 
STA @,ESTAT,2 
LDA @,FILCT,3 
STA O-SPILE 2 
LDA @,CPAT,3 ; GET CURRENT PATTERN # 
LDA 3,PAT ; GET ADDRESS OF PATTERN TABLE 
ADD 0,3 ; INDEX INTO TABLE 
LDA 20,3 ; GET PATTERN 
LDA 3,UFP ; RESTORE FP 
STA @,EPAT,2 
WRP1: 1S2 ERRCT,3 ; INC ERROR COUNT 
LDA 1,ERRCT,3 ; GET ERROR COUNT 
& LDA 2,=NRTRY ; IF(ERRCT .LE. NRTRY) 
USGT 1,2 
JMP WRTRY ; THEN LOOP 
~EJEC 
DSz NWERP ; DEC # OF WRITE ERRORS WITH PASS 
JMP +1 : JUST IN -CRSE 
182 NWERF ; INC # OF WRITE ERRORS WITH FAIL 
LDA 2,SPNT ; GET POINTER INTO SUMMARY BUFFER 
LDA 9,ERRCT,3 ; UPDATE # OF RETRIES 
NEG 2 ; SPECIFY WRITE 
STA @,ERTRY,2 
LDA ®,SEND ; IF(SPNT .LT. SEND) 
USLT 2,0 
JMP WRPBE 
LDA @ ,=4 ; THEN SPNT = SPNT + 4 
ADD %,2 
STA 2,SPNT 
WRPBE: MTDIO MTSBW,.BUFF,1 $3 SPACE BACKWARD 1 RECORD 
HALT 3; ERROR RETURN 
MTDIO MTERS ; ERASE BAD TAPE 
HALT 
JMP WRP ; TRY AGAIN 
WRPUD: LDA 2,SPNT ; GET POINTER INTO SUMMARY BUFFER 
LDA ®,ERRCT,3 ; UPDATE # OF RETRIES 
QR NEG %,o 3; SPECIFY WRITE 
STA @,ERTRY,2 
LDA @,SEND ; IF(SPNT .LT. SEND) 
USLT 2,2 
JMP WRPSC 
LDA @ ,=4 ; THEN SPNT = SPNT + 4 
N ADD 0,2 i Fi CORPORATION, 


va 


WRPSC: ISZ NREC 3 INC. # OF RECORDS 

1$Z CPAT,3 > INC. CURRENT PATTERN # kK, 
LDA @,CPAT,S 
LDA 1,=NPAT >; IF(CPAT .LE. NPAT) 
USGT Cige 
JMP WRPLP 7 THEN LOOP 

s MTDIO MTWRE 3 WRITE EOF 
NOP 
MTDIO MTWRE > WRITE EOF 
NOP 
MTDIO MTSBW,.BUFF,@ 3 SPACE BACKWARD 1 EOF 
NOP 
MTDIO MISBW,.BUFF,@ » SPACE BACKWARD ANOTHER EOF 
NOP 
URET 3 RETURN 
-EJEC 


; 
+ SUBROUTINE TO READ A PATTERN FILE 


’ 
RDFLG= 


ERRCT—1 ; ERROR FLAG 

RIGHT= RDFLG-1 ; RIGHT MATCH 

WRONG= RIGHT-1 3; WRONG MATCH 
USUBR RDPAT,8. 3; ENTRY POINT, 8. TMPS 
STA @,CHTTO,3 3 SAVE CHANNELS 
STA 1,CHLPT,3 
STA 2; FILCT 3 3 SAVE FILE COUNT 
SUBZL @,@ ; CPAT = 1 
STA @,CPAT,3 

RDPLP: SUB go ; RESET READ FLAG 
STA @,RDFLG,3 

RDFAL: MTDIO MTRD,.BUFF,RECSZ 
JMP +2 ; ERROR RETURN 
JMP RDPSC ; SUCCESS RETURN 
SZ NRERP ; INC. # OF READ ERROR WITH PASS 
SUB 22 3; ERRCT = @ 
STA 2,ERRCT,3 

RDTRY: MTDIO MTSBW,.BUFF,1 ; SPACE BACKWARD 1 RECORD 
HALT ; ERROR RETURN 
MTDIO MTRD,.BUFF,RECSZ 
JMP .+2 ; ERROR RETURN 
JMP RDPUD 3; SUCCESS RETURN 
LDA 2,ERRCT,3 ;IF (ERROR COUNT = @) 
MOV 2,2,SZR 
JMP RDP1 
LDA 2,SPNT ; THEN UPDATE ERROR SUMMARY DATA 
STA @,ESTAT ,2 
LDA o, F113 
STA @,EFILE,2 
LDA @,CPAT,3 ; GET CURRENT PATTERN # 
LDA 3,PAT ; GET ADDRESS OF PATTERN TABLE 
ADD @,3 >; INDEX INTO TABLE 
LDA @,9,3 ; GET PATTERN 
LDA 3,UFP ; RESTORE FP 

alt STA @,EPAT,2 

RDP1: 1sz ERRCT,3 3; INC ERROR COUNT 
LDA 1,ERRCT,3 
LDA 2,=NRTRY ; IF(ERRCT .LE. NRTRY) 
USGT 1,2 
JMP RDTRY ; THEN RETRY READ Ala 
DSZ NRERP 3 DEC # OF READ ERRORS wITHee CORPORATION | 
JMP o+1 : JUST IN CASE 


JMP @.4+1 3; GIVE-UP 
2 RDPRT ‘ 
<eC 
RDPUD: LDA 2,SPNT ; GET POINTER INTO SUMMARY DATA 
LDA ®,ERRCT,3 ; UPDATE ERROR COUNT 
STA 2, ERTRY ,2 
®: LDA @,SEND ; IF(SPNT .LT. SEND) 
USLT 2,2 
JMP RDPSC 
LDA ee 3; THEN SPNT = SPNT + 4 
ADD Q,2 
STA 2,SPNT 
RDPSC: LDA 2,-BUFF ; GET ADDRESS OF BUFFER 
LDA 9,%,2 ; GET HEADER WORD 
LDA 1, FIScrl,3 ; IF(FILE COUNT DON’T MATCH) 
SNE sl 
IMP RDP2 
STA ® ,WRONG ,3 ; THEN SAVE RIGHT AND WRONG 
STA 1,RIGHT,3 ; AND PRINT MESSAGE 
EMSG "FILE COUNT. DON’ T MATCH’ 
EMSG " SUPPOSE _ TO. BE_  ,RIGHT 
EMSG “BUTS «It'S. WRONG 
RDP2: ; FILE COUNT DOES MATCR 
LDA @,CPAT,3 ; GET CURRENT PATTERN # 
LDA 3,PAT ; GET ADDRESS OF PATTERN TABLE 
ADD @,3 ; INDFX INTO TABLE 
LDA %,0,3 ; GET PATTERN 
LDA 3 ,=-RECSZ+1 ; SET LOOP COUNT 
RDTST: INC 2,2,SKP ; TEST FOR PATTERN MATCH 
-RDER: RDPER 
LDA 1 @2 ; IF(PATTERN DON’T MATCH) 
bald SEQ. 
JMP @.RDER ; THEN ERROR 
INC 3,3,SZR ; TEST THE WHOLE RECORD 
IMP RDTST 
; PATTERN DOFS MATCH 
LDA 3,UFP ; RESTORE FP 
LDA @,RDFLG,3 ; IF(READ FLAG = @) 
MOV @,0,SNR 
JMP = RDNX } THEN GO READ NEXT RECORD 
EMSG "READ ERROR. -_ THE 1_ RETRY_ PASSED 
EMSG “PATTERN DIDN’T MATCH  ON_ 1ST_ READ_ OF_ FILE_ ",FILCT 
EMSG "SUPPOSE_ TO_ BE_ »RIGHT 
EMSG "BUT. IT_ WAS_ WRONG 
~RDNX: JMP @.+1 
RDNXT 
am EC 
RDPER: LDA 3,UFP ; RESTORE FP 
STA @,RIGHT,3 ; SAVE RIGHT AND WRONG 
STA 1,WRONG,3 
LDA Q ,RDFLG,3 ; IF(READ FLAG = @) 
MOV @,@,SZR 
JMP RDP3 
CoM 2,2 ; THEN SET READ FLAG 
STA @,RDFLG,3 
MTDIO MTSBW,.BUFF,1 $3 SPACE BACKWARD 1 RECORD 
o HALT ; ERROR RETURN 
JMP @.+1 ; READ FAIL -- RETRY ONCE 
RDFAL 
; FAILED THE ONE RETRY 
RDP3: EMSG "WRITE_ ERROR. -_ THE 1_ RETRY FAILED AGAIN” 
EMSG "PATTERN. DON’T MATCH  ON_ FILE_ ",FILCT AYA 
EMSG “SUPPOSE TO BE RIGHT A A CORPORATION 
EMSG BUT IT’S -WRONG 


RDNXT: 


@ errz: 


eRDIP: 


Hy we we we 


NT= 


PELOP: 


je we we 


MP= 


1SZ 
LDA 
LDA 
USGT 
JMPGC 


MTDIO 
NOP 
URET 


RDPLP 
~ EJEC 


CHLPT-1 
USUBR 
STA 

STA 
EMSG 
EMSG 
LDA 
STA 


ENUM 
LDA 
ADDI 
STA 
LDA 
USGE 
JMP 


URET 


CHLPT-1 
USUBR 
STA 
STA 
EMSG 
LDA 
STA 
EMSG 
LDA 
STA 
EMSG 
LDA 
STA 
EMSG 
LDA 
STA 
EMSG 
LDA 


CPAT,3S ; 
@,CPAT,3 

1,=NPAT ; 
“ae 

-RDLP ; 


MTISFW,.BUFF,@ ; 


; 
PERR,3 ; 
®,CHTTO,3 ; 
1,CHLPT,3S 


‘ERROR SUMMARY: ’ 
RETRIES PATTERN STATUS’ 


‘FILE, #_ | 
@,SBGN ; 
2,PNT,3 


PNT,ESLEN ; 
@,PNT,3 ; 


INC. CURRENT PATTERN # 
IF(CPAT .LE. NPAT) 
THEN LOOP 

SPACE FORWARD TO EOF 


RETURN 


ROUTINE TO PRINT AN ERROR SUMMARY 


POINTER INTO STAT BUFFER 
ENTRY POINT, 3 TMPS 
SAVE CHANNELS 


SET PNT = SBGN 


PRINT NUMBER STRING 
PNT = PNT + 4 


IF(PNT < SPNT) 
THEN LOOP 


ROUTINE TO PRINT A STATISTICAL SUMMARY 


TEMP ON STACK 
ENTRY POINT, 3 TMPS 
SAVE CHANNELS 


, 
PSTAT,3 ; 
@,CHTTO,3 ; 
1,CHLPT,3 
“STATISTICAL SUMMARY: ” 


@ ,NREC . 

Q, TMP ,3 
TOTAL #_ 

@ ,NWERP ; 


@ ,NWERF ; 
Q, TMP ,3 

# OF 

@,NRERP ; 

3, TMP ,3 

# OF_ SOFT_ READ _ 
@,NRERF ; 
Q,TMP ,3 


e 
? 
e 
, 
e 
’ 


OF_ RECORDS = 


_ SOFT. WRITE FAILURES = 


HARD. WRITE. FAILURES = 


PUT # OF RECORDS ON STACK 


_ "TMP 
PUT # OF SOFT WRITE ERRS ON STACK 


ep 
PUT # OF HARD WRITE ERRS ON STACK 


. w TMP 
PUT # OF SOFT READ ERRS ON STACK 


FAILURES  =_ ",TMP 
PUT # OF HARD READ ERRS ON STACK 


_ FAILURES. =_ ",TMP 


SUMMARY BUFFER - BEGIN (128 ERRORS) 


OR ) 
FIA - 


SUMMARY BUFFER — END ( 
I/O BUFFER 


eBXTN® RTOS | $ STARTING ADDRESS FOR DBOOT 
( LOC se ese eo, a, = ee ae 


RTOS 
- END 
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THE FUNNEL 


SERIES 3400 
HIGH DENSITY CARTRIDGE MAGNETIC 


GENERAL DESCRIPTION 


The Funnel is the cartridge magnetic tape drive which has been most 
frequently selected by system designers to back-up small fixed disk 
systems. The drive has the capability of a full tape peripheral with file 
search, track select, and the capacity to change or add to existing 
records. A high duty cycle motor with continuous start-stop capability 
enables the Funnel to construct and read files with standard ANSI 
interblock gaps at 30 ips and locate and read these files at either 30 
or 90 ips in both the forward and reverse directions. Up to 17.3 
megabytes of data can be stored on 4 tracks. 

With over 20,000 high density drives in service, the reliability of this 
product has been proven world wide. 

Standard features of the Funnel include an integral tape cleaner 
which greatly enhances error free performance. A patented center- 
of-gravity mounting of the capstan motor allows the drive to be 


mounted in any position or attitude. A proprietary dual gap head 
provides for read- while-write data verification and has a sepdrate 
erase to assure maximum data reliability. 

Up to 8 drives can be connected together on a common buss. A 
codec card provides data encoding of Binary (data and strobe) to a 
self clocking MFM code and decoding MFM to Binary (data 
and strobe). 

ANSI standard media is available from multiple industry sources 
and controllers are available from a growing number of independent 


companies. Among the interfaces available are: x Nova, Nova, Q Bus, 


$100, Multibus, LSI 11, Unibus, and RS-232. Modular power supplies 
are also available from multiple sources. For more information on 
media, controllers or power supplies, contact your local DEI Field 
Office or Representative. 


OPTIONS AVAILABLE 


Control Common Bussing <8 Drives 
Card Customer Selectable Unit Logic Address 
Forward Motion Prevented at EOT 
Reverse Motion Prevented at BOT 
High Speed Allowed only between LP and EW 
Automatic Positioning to BOT on: 
Cartridge Insertion, Power On, Rewind 
High Level Status Signals: 
Busy, Ready, Flag, Selected, Write 
Enable, Load Point Sensed, Early 


Codec Data Separation 
Card Binary (Data and Strobe) to MFM 
MFM to Binary (Data and Strobe) 


Warning Sensed 

SPECIFICATIONS 
Cartridge: ANSI X 3.55—1977 (450’) MTBF: 2 3000 hours 
Recording Density: 6400 bpi (2520 bpcm), MFM or other MTTR: = 30 minutes 

High Density Codes Gree in 10° Bi 
Recording Mode: 4 Track Serial Data Reliability: Less than 1 Error in 10° Bits 
Head Type: Duai Gap, Read-While-Write Voltage Requirements: +5 Vde (<1.5 amps) 

with Separate Erase 

+24 Vdc (<=1.5 amps) 

Tape Cleaner: Integral ; 
Operating Speeds: 30 ips (76 cmps) Write, Bidirectional menace Eagle: TT LOW Sve 

Read Weight: 4.2 Ib. (1.9 kg) 

90 ips (228.6 cmps) Bidirectional Dimensions: 4.25” x 6.96" x 7.75" 

Search and Rewind WxHxD (10.80 cm x 17.68 cm x 19.69 cm) 
Transfer Rate: 192 kbits/sec (24 kbytes/sec) Temperature: + 5°C to + 45°C Operating 
Start/Stop Time: At 30 ips (76 cmps): 25/26 msec — 30°C to + 60°C Storage 

At 90 ips (228.6 cmps): 71/74 msec Relative Humidity: 20% to 80% Non-Condensing 


For more detailed information on the Funnel, request Product Specification 301056 


Corporate Headquarters 


Data Electronics, Inc. 
10150 Sorrento Valley Road 
San Diego, CA 92121 

(714) 452-7840 

TELEX 69-7118 


Nashua, NH 03062 
(603) 888-6262 


Western Regional Office District Office 
Data Electronics, Inc. 
19752 Mac Arthur Bivd., Suite 225 
Irvine, CA 92715 

(714) 752-0659 


Sunnyvale, CA 94086 
(408) 739-7882 


| DATA 
G mg ELECTRONICS 
, SEAR INC. 


Eastern Regional Office 


Data Electronics, Inc. 
125 East Dunstable Road 


Data Electronics, Inc 
510 Lawrence Expressway, Suite 210 


Local Sales Representative: 


For hostile environments, request information 
on DEi R Series Ruggedized Drives 


DATA ELECTRONICS, INC.e 10150 SORRENTO VALLEY RD e SAN DIEGO, CA 92121 © (714) 452-7840 e TELEX 69-7118 


©1980 DATA ELECTRONICS, INC. PRINTEDIN U.S.A.5M /80 308704~ 
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Title: Streaming Cartridge Magnetic Tape Drive 


@ This application note describes the architecture of the drive, the data 
format on tape, and the parameters within which the system must operate 
to maintain streaming. 


General: 


Streaming Cartridge Magnetic Tape Drives combine the advantages of maximum 
tape utilization, high transfer rate, minimum installed cost, and minimum 
cost per bit. These advantages are achieved by eliminating interblock gaps 
and writing or reading the tape in an uninterrupted mode. 


Reason for Interblock Gaps: 


Magnetic tape is an imperfect media. The imperfections in its magnetic 
surface cause loss of data in the area bounded by the imperfection and, for 
most serial self-clocked codes (P.E., M.F.M., etc.), in all subsequent data 
until resynchronization is established. To limit this loss, data is recorded 
on tape in finite blocks, with each block preceeded by a synchronization 
character. Between each block a sufficient length of tape (interblock gap) 
is provided to allow the drive to stop and get back up to speed both in the 
forward and reverse directions. This stopping and starting within the 
interblock gaps facilitates the rewriting of marginally recorded data, block 
transfers to/from host system, external file structuring, and editing. The 
ANSI Standard length of this interblock gap for % inch cartridges is >1.2 
e inches (typical value is 1.33 inches, refer to Figure 1). 
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The problem is that when recording high density data the amount of tape 

used for the interblock gap is disproportionate to the amount of tape used 
for data. As an example, a 256 byte, 6400 BPI data block has a tape 
utilization efficiency of 20% (.335 inches of data in 1.665 inches of eres 
This utilization reduces the formatted capacity of a 17.4 megabyte cartridge 
to only 3.5 megabytes. The currently recommended maximum block size is 

4096 bytes which results in a tape utilization of 79% and yields a formatted 
cartridge capacity of 13.8 megabytes. (This limitation is based on the 
requirement for interblock resynchronization.) In designing a Streaming 
Cartridge Magnetic Tape Drive it is possible to increase the tape utilization 
to 100% while at the same time obtain the advantages of short block lengths. 
These advantages are provided by the format shown in Figure 2. 
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FIGURE 2. STREAMING TAPE FORMAT 4 TRACK SeprenTING 


Architecture of Streaming Cartridge Magnetic Tape Drive: 


Figure’ 3 tllustrates the architecture used in the DEI Streaming Cartridge 
Magnetic Tape Drive. This architecture provides the following functions: 


1. Formatting of incoming data to limit the effect. of drop-outs and hence 
the range that the error correction needs to cover. 


Code conversion to generate a self-clocking recording code. 


Generation of synchronization, block address, and check characters. 


> WW 


Control of data during track changes. 
5. Read-While-Write data verification (after full tape erase). 
6. Rewriting of marginally recorded data blocks. 


7. Recovery from soft errors. 


ne Bulletin No. AN 3032S 


e 8. Control of tape position following power-up, cartridge insertion, SS 
and end of tape. pet ened 


9. Status indication of memory capacity, data in error, file protection, 
and system readiness. 


i? oe EY 


These functions will be briefly discussed in the following paragraphs. 

Blocking of Incoming Data: oe 
ee 

Data presented to the drive is in bit serial form. The drive will accumulate & 

the incoming data in its input buffer, format the data into blockettes, append © 

synchronizing characters, check characters, and an address to each blockette. & 


$ 


Any data which is not written at the end of the save (dump) operation will be 
written when a reset command is given and will contain an end of data flag to 
prevent subsequent apparent tape run away. 


. 
ay 
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Code Conversion: 


i 


a 
J 


ees 


AT 4 . ~~ 


The drive will record the data on tape in a bit serial format. The recorded 

data will be converted for binary to a self-clocking code. The code is 

selected from optimum use of the system passband and the short term speed 

characteristics of the cartridge. It assumes optimum use of the data space 
e comensurate with achieving cost and capacity objectives. 
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Control of Data During Track Change: 


The drive will record the data on two or four data tracks (2 tracks for 10 
megabytes version and 4 tracks for 20 megabytes version), with the tracks 
configured in a serpentine arrangement (no rewind between tracks). Data 
will be internally managed during the stop, ramp down, track change, and 
ramp back up to speed in the opposite direction. During this sequence, the 
drive will hold off the incoming data from the host system. 


Rewriting of Marginal Data: 


Data written on tape will be evaluated on the fly by means of a read-while- 
write check for its integrity with respect to various analog and digital 
parameters. If the recorded data quality does not satisfy any one of these 
parameters, it will be rewritten. This process is essentially a total system 
record quality assurance algorithm. The basic premis is to assure that al] 
recorded data has a substantial data recovery margin. During the read mode 
only the first correctly read blockette will be sent to the host system. It 
will be necessary to hold off the host during the rewriting process. 


Recovery From Soft Errors: 


The drive includes a tape cleaner which provides a means of removing foreign 
particles embedded into the oxide surface of the tape which are the predom- 
jnent cause of errors. This will allow for removal of the error causing 
particles and will allow for an improved data recovery probability during 
read retries. The retries are provided to recover from read errors or soft 
errors. It will be necessary to hold the host off during this recovery 
period. 


Control of Tape Position: 


The drive will automatically rewind the tape to beginning-of-tape following 
power up and upon the initial insertion of the tape cartridge. The drive 
controls the cartridge tape position in an invisible fashion to the host 
system. This includes preventing the tape from running off either the supply 
or the take-up reel and management of the tape during turn arounds and power 
failures. 


Data Format on Tape: 


Figure 4 illustrates the compressed data format used for streaming. This 
format enables the drive to operate in a streaming mode without the space 
penalty of interblock gaps. The format is invisible to the host as are the 
tape control functions. However, if data cannot be transferred to the drive 
at a rate sufficient to maintain streaming, a time penalty of up to 1.2 
seconds is imposed. each time the drive stops to wait for additional data. 
The 1.2 seconds is the sum of time taken for the drive to stop from a tape 
speed of 90 ips in the forward direction, start to 90 ips in reverse, stop, 
and start to 90 ips forward as illustrated in Figure 5. Further, some space 
penalty is also suffered when streaming is interrupted. The loss in data 
space is due to the read-to-write head spacing and speed variations. This 
loss is also illustrated in Figure 5. 
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Maintenance of Streaming: 


The drive has a nominal transfer rate of 675 kilobits per second. This 
transfer rate is established by balancing several parameters. The prin- 
ciple ones being the tape speed and passband of the data channel. However, 
in practice, the nominal transfer rate will be governed by circuit tolerances 
such as the crystal oscillator. To maintain streaming it is necessary that 
the host be capable of supplying data at a minimum rate equal to the maxi- 
mum drive clock rate. 


For the +1% clock tolerance, the minimum host system transfer capability 
is 682 kilobits per second. To maintain streaming in the save mode (write 
or dump operation) it is essential that the host be capable of maintaining 
a minimum rate of say 690 kilobits per second to provide for some margin. 


During the restore mode (read or loading) the problem is further complicated 
by additional speed variation due to the play back process. This adds an 
_additional maximum rate for the transfer of 810 kilobits/sec. 


The drive will support a maximum data rate of up to 950 kbits/sec. for short 


periods. This allows the host to unload up to 256 bytes (2048 bits) ina 
burst mode. 
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PRODUCT SPECIFICATION 
SERIES CMTD-3400S2 © 


SCOPE 


This specification describes the Cartridge Magnetic Tape Drive - CMTD- 
Series 3400 - S2 Version, (hereinafter referred to as "Drive") speci- 
fically designed for 6400 bpi recording. The Drive employs as storage 
media a data cartridge which is mechanical as described per ANSI Standard 
X¥3B5/75-43 - and records and reads cartridges at data densities of 6400 
bpi. The Drive and cartridge are to be used as a read and write memory 
device in a digital system. While other formats are possible this 
specification specifically describes the Drive performance within the 
context of the data format and code listed in Section 7. 


ted Features 


The Drive will record and reproduce data onto and from cartridges 
which mechanically conform to the ANSI Standard in a compatible 
fashion, as such cartridges will be interchangeable. 


The Drive consists of a set of optional features. Optional 
features. include the existance of control and codec boards. 


1.2 Applicable Documents 


American National Standards Institute (ANSI) X3.55-1977, Unrecorded 
Magnetic Tape Cartricge for Information Interchange, .250 inch 
(6.30 mm) used as a mechanical guide. Cartridge read/write 
performance shall be as required by Data Electronics, Inc., High 
Density Cartridge Specification 300,671. 


NOTE: These specifications may change without notice. 
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tig Soecification Summary 


Details for each item listed below can be found in the body of 


this specification. 


[. DATA: 


TRANSFER RATE 
CAPACITY, UNFORMATTED 


CAPACITY, FORMATTED (8K BYTE BLOCK; 


RECORDING FORM 
RECORDING CODE 
HEAD FORMAT 
NUMBER OF RECORDED TRACKS 
RECORDING DENSITY 
OATA RELIABILIT 
SOFT ERROR RATE 
HARD ERROR RATE 
iy MOTION: 
SPEED, READ WRITE 
SPEED, SEARCH REWIND 
SPEED VARIATION, SHORT TERM 
SPEED VARIATION, LONG TERM 
START/STOP PERIOD 
START/STOP OLSTANCE 
@ READ WRITE SPEED 
@ SEARCH REWIND SPEED 


TIT. POWER: * 


SERVO 
OTHER 
DISSIPATIGN: TYPICAL 
MAXIMUM 


PHYSICAL: * 


OVERALL WIDTH X HEIGHT X DEPTH 
WEIGHT 

SIGNAL 1/0 MATING CONNECTOR 
POWER 1/0 MATING CONNEC7TOR 


ENVIRONMENT : 


OPERATING TEMP 
STORAGE TEMP 
RELATIVE HUMIDITY 


MACHINE RELIABILITY: 


MEAN TIME BETWEEN FAILURES 
MEAN TIME TO REPAIR 


* ASSUMES ORIVE WITH 
CONTROL AND CODEC 
(MODEL NO. 3447-44AB0EF-S2) 


>3000 HOURS 


DATA ELECTRONICS, INC. 


OOCUMENT NO: 


PARAMETER VALUE 


] 


192 X 10° BITS/SEC 

i ee 108 BYTES 

15.2 X 10° BYTES 

HEAD UP FROM BOT (ANST) 

MFM 

READ WHILE WRITE WITH ERASE 

FOUR 

6400 BITS/IN 3 
1 ERROR IN 10° 8iTS 
1 ERROR IN 10!° rts 


30 IN/SEC 


gO IN/SEC 
+3% 
+2% 


75/26 X 107° 


SEC 


0.300/0.405. INCHES 
2.97/3.42 INCHES 


+24 +15% VOC @ 1.3A TYP 

+5 +4% VDC @ 1.64 T 

18 WATTS: i 
89 WATTS 


6.96 X 4.25 X 5.72 INCHES 

4.2 LBS 

3M: 3425-3060 

CANNON: 121-7326-10843 AND CANNON: 
121-7326-702 WITH CONTACTS 
11-0238-0091, KEYS 225-7201-205 


5 to 45° ‘ 
~30 to +60°C 
20 to 80% RH 


<1.0 HOURS 


SCALE: 
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PRODUCT SPECIFICATION 
SERIES CMTD-3400S2 © 


SCOPE 


This specification describes the Cartridge Magnetic Tape Drive - CMTD- 
Series 3400 - $2 Version, (hereinafter referred to as "Drive") speci- 
fically designed for 6400 bpi recording. The Drive employs as storage 
media a data cartridge which is mechanical as described per ANSI Standard 
X385/75-43 - and records and reads cartridges at data densities of 6400 
bpi. The Drive and cartridge are to be used as a read and write memory 
device in a digital system. While other formats are possible this 
specification specifically describes the Drive performance within the 
context of the data format and code listed in Section 7. . 


| Features 


which mechanically conform to the ANSI Standard in a compatible 
fashion, as such cartridges will be interchangeable. 


The Drive consists of a set of optional features. Optional 
features. include the existance of control and codec boards. 


1.2 Applicable Documents 


American National Standards Institute (ANSI) X3.55-1977, Unrecorded 
Magnetic Tape Cartricae for Information Interchange, sooo Tine 
(6.30 mm) used as a mechanical guide. Cartridge read/write 
performance shall be as required by Data Electronics, Inc., High 
Density Cartridge Specification 300,671. 


NOTE: These specifications may change without notice. 


, | 
The Drive will record and reproduce data onto and from cartridges | 
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1.4 Model Specification 
To describe the specific model, the following system will be used: 
Form of Model Number: 3, Nl, N2, N3, N4, N5, An 
Where: : F : 4 
N is numeric and A is alphanumeric. 
Nl = Data Recording Density 
N2 = Recording Head Type 
N3 = Tape Speed 
N4 = Number of Tracks 
N5 = Configuration 
An = Options/Selections 
For a specific description of the set of selective features 
available refer to Figure 1.2-1. 
Example given is: 3447-4ABDEF-S2, which is a Drive configured 
as follows: 
6400 bpi recording density 
Dual Gap (read-while-write) head with erase (one erase gap per 
track) 
30 ips read/write speed and 90 ips block search and/or rewind speed 
Four Track Serial recording format * 
Control Board Supplied © : 
File Protect and Cartridge in Place Sense Switches 
Integral Tape Cieaner - 
Unit Address Select Switch. 
End of Line Termination Installed in Drive 
| Codec Board Supplied 
| MATING CONNECTOR SET j 
MODEL NO PART NO. 
| 344X-45ABC1E-S2 301 , 381 Group | 
344X-44A8DE-S2 301 ,382 Group 2 
344X-44ABDEF-S2 301 ,383 Group 3 
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PHYSICAL SPECIFICATION 


The Drive consists of a base structure which is the primary mechanical 
support for the internal elements and provides the mechanical support 

for mounting of the Drive. The primary elements of the Drive are the 
magnetic head, the sensor-assembly, the data board, the servo board, the 
interconnect board, the heat sink assembly and the basic mechanical 
assembly to which all the above are attached. Further optional assemblies 
are the control and codec boards. 


oxi Mounting 


The Drive can be mounted in any orientation without affecting 
performance except when the optional tape cleaner is used. in 

this case, the Drive should not be mounted so that material which 

js removed from the tape can fall back onto the tape surface due 

to gravity. Therefore, orientations wherein the oxide surface 

cf the tape is upward are not. recommended. | 


Various methods can be used to mount the Drive but panel mounting 
is usually most convenient. The Drive is therein attached, via 
four screws, to the rear side of a vertical or horizaontal panel. 
A single opening is required for cartridge access (refer to 
Figure 2.1-1). The orientation of tne unit behind the panel is 


up to 69 watts (typical value: 18 watts), therefore sufficient tree 
air flow is required to prevent the local ambient air from ex- 
ceeding 113°F (45°C) under operating conditions. If conditions 
require forced cooling to achieve this condition (e.s., insufficient 


optional. 

Cue Ambient Conditions 

In general, no forced cooling is required. The Drive can dissipate ) 
free air flow) then air shoule be supplied as shown in Figure 2.2-1. | 


Operating Temperature 41°F to 113°F (5°C to 45°C) 

Storage Temperature: -17°F to 150°F (30°C to 60°C) 

Temperature Rate of Change: <1,.8°/minute (1°c/minute) 

Operating Humidity: 20% to 80% non-condensing 

Storage Humidity: % to 99% humidity - non-condens- 
ing 

Warm-Up Time: Less than 1 sec. (i.e., time wnen 
operational after appiication of 
power) 

Shock Non-Operationa] <30 g's, all axis 

Vibration Non-Operational <0.1G 5-200 Hz 

Vibration Operational *  ¢0.1g 5-100 Hz 
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Physical Parameters 


Weight: 4.2 pounds (1.9 Kg) (without 
cartridge) 

Finish: Metal surfaces treated to pre- 
vent corrosion, where required 

Read to Write 4,306 in. {777 om) 

Gap Spacing: ~300 + .005 in. (.762 cm) 

Erase to Write .265 + .010 in. (.673 cm) 


Gap Spacing: 


Write Gap to Canter Line 2.500 + .06 in. (6.35 ca) 
of E0T/BOT Sensor: 


Cartridge Loading and Unloading 


The Drive loads and unloads a cartridge, previously specified, 
as follows: 


To install a cartridge, it is first positioned at the 
entry opening (refer to Figure 2.1-1) and slid inward 
until a firm stopping point is felt. The pressure is 
then released and the Drive positions the cartridges 
into its operating location. The positioning mechanism 
provides spring loading to engage the cartridge upper 
base surface against a fixed stop and to engage the 
cartridge against two point front surface reference in 
the other axis. 


To remove the cartridge, pull cartridge out or the Drive. 


The loading and unloading mechanism pcsitions the 
cartridge relative to the recording nead so that 
compatible recording or reproducing can occur, and 
shall not damage the cartridge in such a way as 
compatible recording and reproducing cannot occur. 
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FIGURE 2.2-1 
AIR COOLING DIAGRAM 


3x2 Interface Requirements for Basic Model Drives 


302.1 


Control and Status Interface 


The interface between the Drive and the controller is single 
ended, TTL compatible, except for the data signals. 


All input and output lines except data are defined as true 
low (0 to .8 VOC), and all Orive output lines are driven by 
an open collector or tri-state driver (25 ma maximum sink 
current). Input lines into the Drive supply various 74XX 
gates. ; 


Proper line termination is required and subject to the exact 
cable used. For a 1322 cable the line termination shown in 
Figure 3.2.1-1 is recommended (can be uséd for 100-1322 
cables). 


End of line termination can be supplied in the Orive, and is 
shown in Figure 3.2.1-1 for all received command signals. 


Data Signal interface 


The data signals, (Read Data and Write Oata), are differential 
type. The Read Data signals (RDA+, RDA- and DAD+, DAD-) are 
driven by a SN 7511G, or similar differential driver and the 
Write Data signals (WOAt, WOA-) are received by a differential 
receiver type LM 360 or similar. The data signal are designed 
for balanced transmission line operation and line termination 
within the Drive is optional. 


The signal specification voltage swing shal! de at least 
+50 mv but shall not exceed aN, assuming a properly ter- 
minated line (refer to Figure 3.2.2-1) is being driven/ 
received. The current to be sourced by the driver is 6.5 
to 15 ma/leg. The recommended tarmination shown in Figure 
3.2.2-] will vary with the characteristic impedence of the 
cable as used. The maximum sianal rise or fall time is 

50 nsec. 
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3.0 


ELECTRICAL SPECIFICATIONS 


3. ] Power Supply Requirements 


The voltages and corresponding current requirements for the Drive 
are listed in Table 3.1-1. 


CURRENT REQUIREMENTS IN AMPERES 
(TOLERANCES INCLUDE RIPPLE) 


+24VDC + 15%] -24V0C + 15% | +5VDC+5%-3% , 


DRIVE POWER 
DISSIPATION, 


OPERATING, | 
CONDITIONS 


0. 9 
0. 9 

0. .9 

0. 9 

BASIC MODEL 3 169) 1.8 
WITH A CONTROL | Go Aho 42.8 
BOARD So FO. "2a 
oS. o) 20 Sy 20 

BASIC MODEL | cine 
WITH A CONTROL | “3 6 
AND CODEC | A 6 
<2 a6 


BOARD 


TABLE 3.1-1 


“Operating Conditions: 


1 No tape motion, no write current. 

2. Forward tape motion at 30 or $0 ips (includes writing conditions at 20 igs). 
3. Reverse tape motion at 30 or SO ips (no write current), 

4,  Start/Stop Periods: 30 ips 25/26 mSec., 90 ips 71/74 mSec. 


General: 


All voltages measured at drive power connector. 
- The ramp period current peaks do not occur simultaneously. A derective 
cartridge can extend ramp current periods. 


Assumption for power dissipation calculations: 


Typical: Nominal voltages and typical currents,.2 starts and 2 stops per second, 
and running 50% of the remaining time. i 


Maximum: Nominal voltages and maximum currents and 17 starts and 17 stops per 
second. 
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3:3 Interface Requirements for Drives With Control Boards 


3.3.1 Control and Status Interface 


The interface between the Drive and the controller is single 
ended, TIL compatible, except for the data signals. 


All input and output lines except data are defined as true 
low (0 to .8 VDC), and all Drive output lines are driven by 
an open collector or tri-state driver (25 ma maximum sink 
current). Input lines into the Drive supply various 74XX 
gates. Up to 8 Drives can share a common buss cable. 


Proper line termination is required and subject to the exact 


cable used. For a 132a cable the line termination shown in 
i 


Figure 3.2.1-1 is recommended (can be used for 100-1322 
cables). 


End of line termination can be supplied in the Drive, and is 
shown in Figure 3.2.1-1 for all received command signals. All 
input signals except data have a pull-up resistor as shown in 
Figure 3.2.1-1. 


Se Bae Data Signal interface 


The data signals, (Read Data and Write Data), are differential 
type. The Read Data signals (RDA+, RDA- and DAD+, DAD-) are 
driven by a SN 75110, or similar differential driver and the — 
Write Data signals (WDA+, WOA-) are received by a differential ‘) 
receiver type LM 360 or similar. The data signal are designed : 


for balanced transmission line. operation and line termination 
within the Drive is optional. 


The signal specification voltage swing shall be at least 
+50 mv but shall not exceed +3V, assuming a properly ter- 
minated line (refer to Figure 3.2.2-1) is being driven/ i 
received. The current to be sourced by the driver is 6.5 
to 15 ma/ieg. The recommended termination shown.in Figure 
3.2.2-1 will vary with the characteristic impedence of the 
cable as used. Tne maximum signal rise or fail time is 
50 nsec. 

| 


3.4 Interface Requirements for Drives with Control and Codec Boards 
345.1 Control, Status and Data Interface 


The interface between the Drive and the controller is 
signal ended, TTL. 
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All input and output lines are defined as true low (0 to™ 
.8 VOC), and all Orive output lines are driven by an open 
collector or tri-state driver (25 ma maximum sink current). 
Input lines into the Drive supply various 74XX gates. 


Proper line termination is required and subject to the 
exact cable used. For a 1322 cable the line termination 
shown in Figure 3.4.1-1 is recommended (can be used for 
100-1322). 


End of line termination can be supplied in the Drive, and 
is shown in Figure 3.4.1-1 for atl received command signais. 
All input signais have a pull-up resistor as shown in 
Figure 3.4.1-i. 


Connectors 


3.5%] 


Ww 
mn 
nm 


Power 


Power is attached as shown in Figures 3.5.1-1, -2 and -3 
depending on type of Drive. The power connectors are as 
shown. 20 ANG is recommended for power cable wire size. 


Input/Output 


When no control board is supplied the input and output 
cable is a 40 conductor flat cable. The 1/0 connector 
is attached to the Orive shown in Figure bores 


When a control board is specified, the recommended mating 
plug is as shown and the [/0 connector is attached to the 
Drive as shown in Figure 3.5.1-2. 


When a control and codec board are sucplied the recommended 


mating connectors and the attachments are as shown in 
Figure 3.5.1-2. 
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PERFORMANCE SPECIFICATION 


When the Drive is operated within the previously described conditions, the 
following performance shall be achieved: 


4.1 Tape Motion - Steady State 
Aol Bit Period Definitions 


The nominal bit periods for the various drive speeds and 
the corresponding nominal data transfer rates are shown 
in Table 4.1.1-1. 


| NOMINAL ! i | 


| SPEED | APPARENT | NOMINAL BIT | NOMINAL DATA TRANSFER RATE 


(BITS PER SECOND) 


| 
| 
RANGE | SPEED | PERIOD | 

(MICROSECONDS) | 


(IN. PER SEC) 
192,000 


TABLE 4.1.1-1 


Long Term Tolerances 


The long term average of the nominal bit period at an 
apparent 6400 flux reversal per inch (frpi) as shown in 
Tabie 4.1.1-1 will be within 22% for 30 ips. The long 
term average of the nominal bit period will be within 
+4% for high speeds. 


The long tarm average bit period measured in a reverse 
direction and forward direction shall be within 43%. 


The bit oeriod shall be as seen at the read data signal 
exiting the Drive and is defined as being measured cver 


150 inches (3.381 m) of tape or more. The total variations 
are listed in Table 4.1.2-1. 
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3.6 Power Transients, and Power Start-Up and Shut-Off Conditions 


No power transients which exceed the limits specified in the power 
levels should exist on the power lines delivered to the drive under 
any condition. 


The following shall be true during periods of power application 
and removal: 


To avoid spurious input commands being seen by the drive, 
the controller should have a fail-safe method cf maintzining 
the drive in the unselected state (SLG = False or Sii 4 

SL2 = False) during periods of power application and removal. 


If it does then the following shall be true: 


During Power Removal 


Presently or previously in the read mode or any other non- 
write mode: No writing or erasing which shal] render pre- 
viously recorded data unrecoverable small occur during the 
power -removal period.. 


Presently in the write mode: The recording and erase opera- 
tion shall be unpredictably shut down, hence the block must 
be re-recorded. 


Previously in the write mode (i.e., stepped in a gap after ; F 
a write operation): No writing or erasing shall occur 
which shall render previously recorded data unrecoverable. 


Ouring Power Application 


No writing or erasing shall occur which shall render 
previously recorded data recoverable. 
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NOMINAL OLESTANCE 


SPEED 


IN./SEC. 
(CM/SEC. ) CONDITION X 10 


Fo gee 


STOPPING 26 .378 ~405 


STARTING 


Td | t 
+5) STOPPING 74 2.792 | 3.420 | 4.088 | 
(7.092) | (8.687) | (10.18) | 


525 
| (7360) | (1.209) | (1334) | 
STARTING 7] 2.701 2.970 33208 
29 |} (6.860) | (7.544) (8.130) 
: (228 | 
| 


TABLE 4.2-1 


4,3 Bit Period Tolerances 


The Orive ghall consume no more than +33% of the available 
+1.3 X 107© sec. data recovery window, exclusive of speed 
tolerances already listed. 


@® 4.4 Reliability and Failures 


The herein listed failure definitions should be used in con- 
junction with the Data Electronics, Inc. Warranty and recommended 
preventive maintenance schedule; neither is contained within 

this document. 


4.4.1 Mechanical Failure 


A mechanical failure is defined as a persistent failure 

of the Orive mechanism to perform as specified herein and 
includes the ability to load, unload and properly position 
the cartridge for the purposes of recording and reproducing 
data and to act as basic mechanical structure for other 
Orive components. 


301,056 


4.2 


LONG TERM AVERAGE SK Th 
TOLERANCE TOLERANCE 


- CONDITION 


SHORT TERM AVERAGE 


DRIVE CARTRIDGE TOTAL DRIVE CARTRIDGE TOTAL 


TABLE 4.1.2-1 


4.1.3 Short Term Tolerances 


The short term average bit period at 6400 frpi is snown in 
Table 4.1.1-1 will be within +3% of the long term averace 
bit period during recording. In a subsequent read mode 
an additional +7% short term speed can occur. The short 
term speed observations shall be from 5Hz to 20 KHz. 


Tape Motion, Starting and Stopping 


The start distance is defined as the period from application of 
the state (either forward er reverse) command to when >95% of 
final long term speed is reached, exclusive of short term speed 
changes. For values of start distances , refer to Table 4.2-1, 


The minimum stopping distance shall always be greater than the 
maximum starting distance for 30 ips. An interrecord gap of 

1.2 inches {3. .048 cm) shall be achievable for 30 ips. A deiay 
of 33 X 10° sec is required during writing to assure a minimum 
1.2 inch interrecord gap. The delay is starting at tne beginning 
of the Forward command. 


The stop distance is the actual tape distance traveled during the 
stop period. During the stop period, which begins when the Drive 
motion is set false, the tape shall stop. 


Within the values listed in Table 4.3.2-1, no limitations exist 
for the application of the start/stop commands. 
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WDA-, WDA?: 


will remain set after deselection. This 
signal should not be reset until] the 
drive has stopped. Tnis signal should be 
set prior to drive motion. t least 2 
milliseconds should be allowed between 
the reset of Write Enable and the chang- 
ing of the track select signals. 


This signal will modulate the wrire head to produce 
a recorded waveform on tape when WeN- is true and 
the cartridge is in the unprotected stcie (not safe). 
This signal snail continue to modulate the write need 
if WEN is set and the cariridge is not protected 
independent of the drive selection. 


To change to ae WOA+=H, WDA- = L state shall” 
cause a comparable change to be made on the RDA 
signal lines when read back. © 


The minimum clock period for data input should not 
allow the nominal resultant number of flux reversal 
from exceeding 6400 per inch (2520 flux reversal/cm). 


Causes forward tape motion; the speed is set by the 
High Speed sicnal. 


Causes reverse tape motion; the speed is set by the 
High Soeed signal. 


Causes the tape to move at Hign Speed in the 
direction set by FVD or REV. 


Track seleet address: @ binary number, {true low), 
in the following form: 


is TR2= and 2° is TRI-. 


Where 2! 


4.4.2 Control Failure 


s defined as @ persistent failure of 


A control failure i 

the Drive to respond to external commands or supply a 
status signal as specified herein. This assumed that all 
of the specified requirements have been met during the 


unit's life. 


4.4.3 Sata Failure 
A data failure is defined as a persistant failure in the 
Drive to write or read data as specified herein with en 
arror rate in excess of that specified herein. The 
error rate assumes ¢ cartridge per specifications listed 
herein that nas been certified to be free of recordabie 
areas which fall below 30% of the nominal amplitude 3% 
6400 frpi. Cartridge permanent errors are to be excluded. 
A temporary (soft) error is defined as any particular 
error which persists for ten (10) or less successive 
read and/or write attempts. A permanent (hard) error 
is one which persists for after ten (10) retries in the 


read or write moce. 
4.4.4 Data Reliability 
The temporary err 


bits read wherein recording 
as specified herein. 


or rate shall be less than | error in 10 
and reading is done on a Drive 


The Drive, in a laboratory environment, shail haye a 
permanent error rate of less than | error in 10'Y Ddits 


read assuming the recording and rea 
Drive as specified nerein. 


ding is done cn 5 


5.1 1/0 Signals for Basic Model Drives 


Sie Input Signals 
SL2-, SLI-: Up to two Drives can share a common Duss; 
drive is selected oy either signal depend- 
ing on intern 1 address which must de 
speciried. The Drive will not return status 
nor accept commands uniess selected, except 
as specified below. 


When true, shall enable the writing and 
erasing functions for the selected track. 
The writing and erasing processes shal 

occur only if the cartridge is in the un- 
protected state (not safe). This signal 


WEN-: 


akee 
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Tne track selection is decoded es follows: | 


*; Simultaneous FWD & REV = True shall not cause damage to the drive 
but tape motion resulting is unpredictable. 


The track selection will select all heads 
for a given track (i.e., erase, write, ana 
read). The last track selection shail be 
stored within the drive even after deselec- 
tion by the controller. 


Output Signals 


FIP-: Tne cartridge instalied sensed by CIP is 
protected, i.e., cannot be written on under 
any operational conditions. 


BLB-: Power is applied to Drive (+5VYDC present) 
and sensor bulb is drawing current (is cn). 
LTH-, UTH-: Either upper (UTH) or lower (LTH) hole has 


been sensed. These signals are true fer 
period of sensor activity {>100 usec.) only. 


CIP-: Cartridge is installed in Drive. 

RDA+, RDA-:” ‘This signal] is a replica of the WDA data 
written onto the tape except as specified 
herein. 


The read signal is always available. The 
read signal lines should only be examined 
for valid cata when DAD is true ‘low). 


DAD+, DAD-: This signal, Data Detected, will indicate 
that the Read Data signals are valid for 
the particular mode of operation. jhe Read 
Data signais should be only be examined 
when DAD is true. DAD will go true <16 ysec. 
after the first valid data transition is 
read from tape. This will remain true if at 
least two data transitions which exceed 
the threshold criteria are read from tape 
in the 16 usec. period. 
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Tne DAD signal will remain true for up to 
62 usec. after the last data transition is 
read from a block, (the data transitions 
which have met the threshold criteria). 


The DAD true state shall be DAD+ = High, 
DAD- = Low. 


5.2 1/0 Signals for Drives with a Control Card 


5.2.1 Input Signals 
The input signals from the controller to thé Drive are as 
follows: 


5.2.1.1 Unit Addressing 
Up to eight (8) Drives can exist on a single buss. 
Each Drive is individually addressable by the 
following: 


SLG- Select Gate: When true, enables selection per 
the select or address code. It is used to prevent 
unwanted transient selection during changes in the | 
select address. 


Unit Select address in the form of a binary number 
(true low): 


32 9! 0 


wherein ag is SL4—, 2 is SL2- and ra is SLI-, 
The eddress is deceded by the Drive as follows: 


Logical SL4— SL2- SLI- 
Address 


The Drive is equisped with a unit address switch to 
provide customer selection of unit addresses. The 
switch nomenclature shall numerically correspond jo | 
the logicel address as shown in the teple cbove. 
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_§.2.1.2 Motion 


The addressing function shall proceed and remain 
during any other Drive input and output function 
except where noted. 


Tape motion shall be commanded by the following lines: 


FWD-: 


REV-=: 


HSP-: 


When true, causes the tape to move in « forward 
direction. , 


When true, causes the tape to move in a reverse 
direction. i 


When true, causes the tape to move at high speed 
in the direction selected by either FWD- or REV-~. 


Tape motion shall proceed until the command signals go false 


or: 


RWD~: 


In forward where a EOT hole is encountered where- 
upon motion shall stop. 


In reverse where a set of BOT holes is encountered 
whereupon motion shall stop. 


Both directions are commanded simultcneously 
whereupon the tape shall stop. 


Rewind command is received which shall overrule - 
other motion commands. 


Internal Ready signal is not true whereupon motion 
will stop. 


In High Speed mosion, will drep to low speed when 
the upper "load point” hole is sensed in reverse or 
the upper "ecrly werning” hole is sensed in forward. 


When true, causes the tape to be positioned to 
beginning of tape ct high speed. The Drive must be 
selected to start a Rewind sequence, but may be 
unselected after the sequence is started. 


SOCUMENT NO: 


301,056 


| SCALE 


eS Lee Te eee 


@ 1 Beginning of tepe is defined as between the two 
innermost (toward the middle of the tepe) set of | 
upper and lower holes located at the "head end" 
of the tape. This location is recommended for 
unloading the cartridge es the data recording area 
is completely protected. 


Rewind shall “overrule” all other motion signals. 
Successive Rewind: commands shall not cause the 


tape to be “run off", 


Rewind shall stoo if the Internal Ready signal is 
false. 


| An automatic Rewind sequence is executed when a 
cartridge is installed in the Drive or when power is 
applied when a cartridge is installed. 

5.2.1.3 Data Signals 


The data input process requires the following: 


TR2-: ) Track select address: a binery number, (true low), 


) TRI=: | in the following fem: 
ra a 


7 
Where 2° is TR2- and 2 is TRI, 


The track selection is decoded es follows: 


The track selection will select all neads for a 
given track (i.e., erasa, write, and read). - 

The last track selection shall be stored within 
the drive even after deselection by the controller. 
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In the case of receipt of a non-executed or illegal 
command, (FWD at EOT or REV at 807), this 
signal will not be true, indicating the command is 
rejected. 


FLG-: Will be set and latched when an automatic sequence 
to position the cartridge to 3OT has been executed, 
or a rewind has been completed. This signal is reset 
by subsequent receipt of a FWD command. 


WND-: Will be true when a write enable condition is latched 
within the Drive. 


FUP-: ‘Will be true when a cartridge is installed end it 
is in the unprotected state (i.e., can be written on). 


LPS-: Will be set and latched when the upper load point 
hole (the warning of beginning of tape) is passed in 
the reverse direction. This signal will oe internally 
reset when the joad point hole is suosequently passed 
in the forward direction. When this signal is true, 
high speed will be disabled. Reverse tcpe motion is 
allowed to proceed unii] the BOT holes are encountered 
where the Drive will stop and acceot only forward 
commands. 


EWS-: Will be set and latched when the upper early werning 
hole (the warning ct end of tape) is passed in the 
forward direction. This signal will be internally 
reset when the eariy warning hole is subsequently 
passed in the reverse direction. When this signal is 
true, high speed is discbled. Forward tcpe motion is 
allowed to proceed until the SOT nole is encountered 
wnere the Drive will stop end accept only reverse 


commands. 
5,2:2;2 yDete Signals 
RDA+, 


RDA-: This signal is a replica of the ‘WDA data written onto 
the tape except cs specified hereini, 


WEN-: When true, shall enable the writing and erasing 
functions for the selected track. The writing 
and erasing processes shall occur only if the 
cartridge is in the unprotected state (not safe) ) 
This signal will remain set after deselection. i 
This signal should not be reset until] the 
drive has stopped. This signal should be set i 
prior to drive motion. At least 2 milliseconds 
should be allowed between the reset of Write 
Enable and the changing of the track select 
signals. This signal is reset by either Re- 
verse or High Speed commands. 


WDA-: This signal will modulate the write head to 

WDA+: produce a recorded waveform on tape when WEN- 
is true and the cartridge is in the unprotec- 
ted state (not safe). This signal shall con- 
tinue to modulate the write head if WEN is set 
and the cartridge is not protacted independent 
of the drive selection. 


To change to a WDA+ = H, WDA- = L state shall 
cause a comparable change to be made on the RDA 
signal lines when read back. 

The minimum clock period for data input should 
not allow the nominal resultant number o7 flux - 
reversal from exceeding 6400 per inch (2520 
flux reversal/cm). 


5.2.2 Output Signals ~ 2 
S.202.) Status Siggals 


SLD-: Will be true when the Drive has received its 
proper unit address. . 


RDY-: Will be true wnen a cartridge is installed, 
the sensor lamp is drawing current, and the 
+5VDC is applied to the Orive. 


BSY-: Will be true when the Orive is in an automatic 
rewind sequence (i.e., when a cartridge is 
first installed in the Drive), or when the Drive 
js executing a rewind, forward, or raverse 
command. This signal will go true when the 
command is received and wil! remain true until 
the motion has stopped (i.e., 30 milliseconds 
atter low speed motion has been commanded to 
stop and 80 milliseconds after 90 ips operation 
has been commanded to stop). 
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DAD+, DAD-: This signal, Data Detected, wili indicate 
that the Read Data signals are valid for 
the particular mode of operation. The 
Read Data signals should only be examined 
when DAD is true. DAD will go true <16 
usec. after the first valid data transition 
is read from tape. This will remain true 
if at least two data transitions which 
exceed the threshold criteria are read 
from tape in the 16 usec. period. 


The DAD signal will remain true for up te 
62 psec. arter the last data transition 
is read from a block. 


oes 1/0 Signals for Serial Drives With a Codec Board 


All drives equipped with a Codec board are also supplied with control 
boards, therefore, for specific descriptions of these signals, refer 
to Section 5.2. The only deietions are the WDAt, DADt, and RDA+ 
signals which are replaced by the signals which follow. 


ena m — 


5.3.1 Input Data Signals for Drives With Codec Board 
WOE- Write Data Enable: A control] line te the drive wnich | 
: 
| 
; 


enables the encoding function (sending of write data 

strobes and the writing of data on tape). The WEN 
function will enable both writing and erasing. WEN 
causes the write circuits to become active and tape 
to the erased. After the tape is up to speed and 
other conditions met, the WDE will cause the Drive to 
send data strobes and snall commence to record fiux 
transitions on the tape. 


The first strobe is sent <5.2 X 107° sec. after WDE 


is true. 


All data which is to be written on the tape must be 
sent to the Drive (all preambles, check characters, 
and postambles). 


WNZ- write Data. Buring the write data strobe period the 
state of the input write data line is sensea 4s 
follows: 

WNZ = Low , and 

= High 


“ou 
ad 


WNZ 0 


The state of WNZ is only examined during the write 
data strobe period. The WNZ signal must be steady 
0.5 X 10-8 sec. prior to the write data strobe true 
period (WDS = Low) and remains during the strobe 
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sec. WNZ is permitted to . 
false going) edge of WDS-. 


true period = 1 X 10 
change on the rising 
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Qutput Data Sianals for Drives With Codec Board 


DAD- Oata Detected. Will be false except when data has 
been detected. Data detected requires the receipt 
of a number of data transitions from the tape without 
an intervening period of more than 20 X 1079 sec. 
between transitions being received. Data detected 
can be used to sense the presence of blocks of data 
at both low and hich speed. 


RNZ- Read Data. Ouring the period of read data strobe, 
when QNZ is low (true), the data is a 'one'; when 
high, the data is a ‘Zero’. Tne RNZ signal will 
remain steady at least 100 X 10-9 sec. orior and 
after the 20S true period. 

uggs 'RdMa- Bakar Stroba.x WHLABE tey-for * 10. K 10" secs 
indicating that RNZ can be sampled during this period. 


Read data in the forward direction will have the ore- 
amble removed but will contain all of the pos tamble. 
(Therefore, CRCC and postamble must be stripped in 
forward direction and the CRCC.) The CRCC and the 
preamble must de removed in the reverse direction. 

To output read data strobes, a series of ‘zeros’ 

and a ‘one’ must be sensed. A drop-out will disable 
QDA if it exists for more than 50 X 10-6 sec. 


The read data threshold levels are internally set to 
three different leveis depending on the write and 
motion commands. ead cnly threshold occurs when 
running at low speed without writing. Write threshold 
occurs when writing. Search threshold occurs when 
running at high speed. 


The use of these threshold levels allows for tne 
verification and estadlisnment of the data relia- 
bility and margins during the required read-while- 
write check. 


WOS- Write data Strebe. The write data strobe is ganerated 
within the Encoder/Decoder and is sent out to incicate 
when the Drive is taking data. The low or true strebe 
period if = 1.0 x 10-8 sec. 
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NOTES: 
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Logic Common 
(where other commons are tied together) in power supply. 


COMMENTS 


POWER +24VDC 


SUPPLY 


POWER LOGIC COMMGN | 
SUPPLY. 


POWER ~24VDC 
SUPPLY 


| 
| 
: 
| = 
5 MAC. ; 0 NA REY 
| | 


| POWER | LOGIC COMMON 
| supply 


fon) 
— 
-e ° 
Q 
= 5 


M.N.C. Make no external connection. 


to be tied to corresponding signai at one place 


Mating connector Part Numbers: 


Cannon Part Number: 12%:27326-702., connector {1 eacn) 
Cannon Part Number: 11-06238-0091, contacts (5 each) 
Cannon Part Number: 225-7301-003, key (1 each) 
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6.0 POWER - SIGNAL PIN ASSIGNMENTS 


ES 


6.1 Power Connections 


The power pin assignments for all Drive configurations are shown in 
Table 6.1-1. Additional power connections for Drives with control and 
Codec Boards are shown in Table 6.i-2. 


Power supply Pin Assignments 


4 tN. 

5 SCOM | Power Supol | Servo Common 
mre aes | Power Suppl { +5VDC i 
7 | LCOM | Power Supply Legic Common 
| 8 CCOM | Drive Chassis Common | 

| 


Power Suppl 
Power Suppl 


| 
TABLE. 6. I=] | 


NOTES: 1. Servo, Logic, and Chassis Common are to be tied together and 
to Ground at one point in power supply. | 


Chassis Common is the physical cese of the Drive, Servo Common 
returns the +24VDC currents and Logic Common returns +3VDC. 


Pr 


AMP Part Number 2-86256-2, connector (1 each) 
AMP Part Number 86016-4, contacts (16 each) 
AMP Part Number 86286-1, key plugs (3 each) 


or 


Cannon Part Number 121-7326-10843, connector (1: each) 
Cannon Part Number 11-G238-0091, contacts (13 each) 


i 
3. Mating Connector Part Numbers: 
Cannon Part Number 225-7301-003, key plugs (3 each) 

| 


4. M.N.C. Make no external connections. 
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563, Signal - Pin Assicnments for Orives with Control Boards 


Pint Signal Comments 


Selected 


Drive Write Enabled 
Drive Flag 
Drive Load Point Sensed 
Orive File Unprotected 
 Orive | Busy 
Drive Early Warning Sensed 
RWD- Controller Rewind 
REV- Controller Reverse 
FWD Controller Forward 
HSP- Controller High Speed 
Controller | Write Enable 
Unit Select 2 


~ Controller Unit Select 2 

cntroller Select Gate 

| Oata Detected 2 
Drive Data Detacted | 
Drive Read Data 2 
Drive Read Data | 
Controller Write Data 2 
Controller | Write Oata | 
Controller | = Track Select 2’ 
Controller Track Select 2 


TABLE 6.2-] 
All other odd numbered sins (2N-1 < N < 25) are returns or groundas. 


Mating connector is 3M Co. Part Number 3425-3000, or equivalent. 
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UTH- Drive Upper Tape Hole 
RDA+ Drive Read Data | 
RDA- | Drive | Read Data 2 
LCOM | Drive | Logie Common 
DAD+ | Drive | Data Detected | 
DAD- Drive Data Detected 2 
LCOM | Drive | Logic: Common 
TRI- Controller | Track 2° 

TR2- Controller Track 2! 

M.N.C. N.A. | a ae 
WDA+ | Controller 1 . Write Data 1 
WDA= Controller Write Date 2 
WEN- Controller Write Enable 
MAN.C. N.A. aces 


Controller Forward 


Controller Reverse 


ay ae Aa a ee of eee § =o | 


Notes: 


Controller High Speed 


1) All not listed (2N < N $20) signal lines ore the returns or grounds. 


2) Mating connector is 3M Co. Part Number 3417-3000 or 
equivalent. xe 


3) The above refers to Drives without ‘a contro] board; connections 
are made directly to interconnect card. 


4) M.N.C. 


Make no external connection. 
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7.0 DATA INPUT FORMAT FOR ORIVES WITH CODEC BOARD 


7.1 Pre and Postambles 
An appended ‘non-data bearing pattern of at least thirty-nine (39) 
'zeros' followed by one (1) ‘one’ shall be added to the beginning 
of each data block. This pattern is called a preamble. The reverse 
pattern (i.e., one (1) ‘one' followed by at least thirty-nine (39) 
‘zeros' snall be added to the end of each data block. This pattern 
is called a postamble. The preamble is stripped from the read cata 
by the drive in the forward mode and the pcstamble is. stripped 
from the read data in the reverse mode. 
Hence, a data block is: 

> 39 'zeros'; 1 'one', Data, 1 'one', and > 39 ‘zeros’. 

Check Charactars 


Any check characters shal] be aareed to by the interchanging 
parties. ANSI CRCC: x!9 + x15°+ x2 + 1 is often adopted. 


Minimum Data 8lock Size 
A data biock shall contain at least 1024 data bits. 


Tape Mark 


A tape mark snall consist of a preamble, 16 data bits and a post- 
amb le. 
T 


ne Interdlock Sas 


The minimum interblock gap (13G) small be 1.2 inches. Commanding 
WEN true will cause the removal (using the Drive AC erase capa- 
bility) of any recoverabie data or spurious transitions from the 
interblock gap. 

Number of Tracks 


There shall be 4 recordabie tracks. 
TRACK 2 


TRACK 4 


CARTRIDGE BASE 


301,056 


6.4 SIGNAL - PIN ASSIGNMENTS FOR DRIVES WITH A CONTROL AND CODEC BOARD. 


[PIN ¢ | SIGNAL _| | COMMENTS 


ie 
ie WNO- Drive Write Enabled 


8 FLG- | Drive Flag 
19 Lps- | Drive oad Point Sensed 
12 FUP- Drive File Unprotected 


oa ee ee 
| 26 | wen- | Controlier_| Write Enable 


39 SL2- Controller Unit Select 2 
Drive | Read NRZ Data 
oe RDS- Drive Read Data Strobe 
Drive Data Detected 

- Write NRZ Data 


Controller Track Select 2' 
|__4g Drive Write Date Strobe 


TRI- Controller Track Select 2 


de 


NOTE: 1} All odd numbered pins are returns. 
2) Mating connector: 3M Part. Number 3425-3000 or equivalent. 
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7.0 DATA INPUT FORMAT FOR DRIVES WITH CODEC BOARD 


Bel? 


Pre and Postambles 


An appended non-data bearing pattern of at least thirty-nine (39) 
'zeros' followed by one (1) ‘one’ shall be added to the beginning 
of each data block. This pattern is called a preamble. The reverse 
pattern (i.e., one (1) ‘one’ followed by at least thirty-nine (39) 
'zeros' snall be added to the end of each data block. This pattern 
is called a postamble. The oreamble is stripped from the read data 
by the drive in the forward mode and the postamble is stripped 

from the read data in the reverse mode. 


Hence, a data block is: 
> 39 'zeros'; 1 'one', Data, 1 ‘one’, and > 39 ‘Zeros’. 


Check Characters 


Any check characters shal] be agresd to by the interchanging 
parties. ANSI CRCC: X!® + xl5°+ x2 +1 is often adopted. 


Minimum Data 38lock Size 
A data biock shall contain at least 1024 data bits. 


Tape Mark 


A tape mark snall consist of a preamole, 16 data bits and a post- 
amole. 


the Interdlock Sap 


The minimum interblock gap (18G) shall be 1.2 inches. Commanding 
WEN true will cause the removal (using the Drive AC erase capa- 
bility) of any recoverable data or spurious transitions from the 
interblock gap. 


Number of Tracxs 


There shall be 4 recordabia tracks. 


TRACK 2 
TRACK 4 
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il, UL RECOGNITION: THE FINISED BOARDS SHALL BE RECOGNIZED 


BY UNDERWRITERS LABORATORIES ,INC.(UL) WITH A 
FLAMMABILITY CLASSIFICATION OF 44V-O - 

THE BOARDS SHALL BEAR THE MANUFACTURES IDENT- 
IFICATION AND TYPE NUMBER AS REQUIRED AND: 
AUTHORIZED BY UL TO INDICATE THE FLAMMABILITY 
CLASSIFICATION. DEI LOCATION APPROVAL \S GE- 
QUIRED IF I.D. AND TYPES NO. IS ETCHED. 


6.90 


10, SOLDER MASK BOARDS, USIKG PAD MASTER, TO. THE BEST COMMERCIAL STANCARD, 
CVE SIDE; SOLDER SIDE. 

D = .034 — .O40 DIA. 323 PLA 

C = .040-.046 DIA. @PLC'S. 

B= .083 -.090 DIA. 2PLC'S. 

9. ALL_ HOLES .032-.036 DIA, 775 PLC’S EXCEPT: A=.154 DIA. 4 PLCS. 

8. ALL PLATED THRU HOLES = .OO1 COPPER. 

7. ALL HOLE DIMENSIONS ARE AFTER PLATING. 

@. CIRCUITRY FINISH : SOLOER PLATE GO/40 FUSED. 

S.NET COPPER (LAMINATE AND PLATING ) 3,02/FT2. 

4.-NOMINAL LAMINATE THICKNESS -OG2 . ' 


2. BOARD TO BE FABRICATED TO MEET UL PRINTED-WIRING- BOARD STANDARD UL-790- 


NOTES !.COMPONENT SIDE SHOWN. : 
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